Near the end of my procedure (which is located in PERSONAL.XLS) , I have the
following lines of code:

Application.DisplayAlerts = False
ActiveWorkbook.ProtectSharing SharingPassword:="password"
ActiveWorkbooks.Close SaveChanges:=False
Application.DisplayAlerts = True

(Please note that my procedure starts out by opening a workbook located on a
network shared drive.)

When Excel executes the 3rd line of code above, my procedure stops and I get
the following error message:

Run-time error.
This workbook contains macros recorded or written in Visual Basic.
Macros cannot be viewed or edited in shared workbooks.

Given that Application.DisplayAlerts has been set to False, I don't
understand why the error message is appearing.

Does anyone have any ideas on how I can modify the lines above to prevent
the error message from appearing? Thanks.