That code works fine for me no matter who opened the shared workbook first.

But you mention 'read only', if the workbook is shared you shouldn't get
that. Are you sure it was saved as shared and all users are allowed to share
it. Check manually

In 97-3003, Tools, Share Workbook
In 2007, Review tab, Share Workbook

All users should be able to see the shared workbook in this dialog.

Regards,
Peter T


"Carrie_Loos via OfficeKB.com" <u34134@uwe wrote in message
news:a739b9111a75d@uwe...
I retreived this code from a post and it works good as long as I am the one
who has it opened originally, but if someone else opens the file first, I
have a 'read only' copy and this code gives me an error. Is there a way to
modify this so I can see who has the Excel file open?

Sub UsersList()
Dim users, msg As String
users = Workbooks("Logistics Repair Time Log.xls").UserStatus
For Row = 1 To UBound(users, 1)
msg = msg & users(Row, 1)
Next
MsgBox msg, 64
End Sub

--
Message posted via http://www.officekb.com