Sub ttt()
For i = 1 To ActivePage.Shapes.Count
Set shm = ActivePage.Shapes(i).Master
If Not shm Is Nothing Then
If StrComp(shm.Name, "main") = 0 Then
Debug.Print ActivePage.Shapes(i).NameID
End If
End If
Next
End Sub