macro to share all open work books

Hi all! At the beginning of shift I have to open and share up to 30 workbooks. Can someone please suggest a macro or a function that I can insert into my master work book and which will share all open workbooks in one go? Thanks so much, regards, Itzik

Dear Natefarm, thanks so much. I will plug this in and give it a go. Regards, ItzikM.

Dear Natefarm, this afternoon I finally got a chance to test your code and it works beautifully. Thanks so much. I came up against a glitch however, and the first time I ran it my excel stopped working. It turned out that one of the excel sheets I had opened had already been shared. Is there any way to make the code skip a workbook if it is already shared, rather than going into a loop? Regards, ItzikM

Dear The_Prist. Thank you so much. I will plug this in and try it. Regards ItzikM