Try this:

If ThisWorkbook.MultiUserEditing Then
MsgBox "Shared"
End If

--
Dan


On Apr 16, 10:05*am, Ladymuck
wrote:
I would like an alert to pop up if someone tries to run a macro while the
workbook is in shared rather than exclusive mode. How would I do this?

Many thanks
Louise