Sharing a Workbook

Hi

I have a similar macro (Below) That shares book 2, However this overwrites the second workbook instead of making a copy of it and sharing the copy. So if you want to use the below macro make back up copys of your work and save them to a different location under a different name first as i dont know how well it will work on your work.



Sub Book2Share()
Application.ScreenUpdating = False 'Stops the screen flashing
sTarget = "Book2" & ".xls" ' The name of your second workbook
On Error Resume Next
Workbooks.Open sTarget
Windows(sTarget).Activate
With ActiveWorkbook
If Not ActiveWorkbook.MultiUserEditing Then ' Checks if your second book is already shared
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If
Application.ScreenUpdating = True ' resumes screen updating
End With
End Sub


Hope it works for you