Dim pp As MapPoint.Pushpin
On Error Resume Next
Set objmap = GetObject(, "MapPoint.Application").ActiveMap
Set obj1 = objmap.Selection
If TypeOf objmap.Selection Is Pushpin Then
Set pp = objmap.Selection
MsgBox pp.Name
End If