Identifying the type of a selected object: uses the TypeName function, which returns the type of the selected object (as a string):
Sub ShowSelectionType() Dim SelType As String SelType = TypeName(Selection) MsgBox SelType End Sub