Show UserStatus Names

[Mudbutt]

I'm trying to make this code give me a message box with the users that are in this shared file. The problem is that it will bring up the box if I'm the only person in it, and I don't care about that because the purpose is to warn me if other users are in the file before I unshare it.

Does anyone know how to adjust this code properly so that it gives the message box if more than 1 user is in it (which would be me)?

Private Sub MsgboxUsers()
    With WorksheetFunction
        MsgBox Prompt:=Join(.Transpose(.Index(Activeworkbook.UserStatus, 0, 1)), vbLf), _
               Title:="Users"
    End With
End Sub

 

[RoryA]

You could use

If UBound(Activeworkbook.UserStatus, 1) > 0 then

 

[Mudbutt]

Works perfectly, thanks Rory. I just had to change it to > 1 instead of 0 so it ignores me in the file.