Public Sub run3()
Dim aa As Drawing
Set aa = Application.Selection(1)
Dim bb As AccessControlUser
Dim str As String
str = ""
For Each bb In aa.AccessPermissions
str = str & "|" & bb.Name
Next bb
MsgBox str
End Sub