Sub Shape_Index_Name() Dim myVar As Shapes Dim myShape As Shape Set myVar = Sheets(1).Shapes For Each myShape In myVar MsgBox "Index = " & myShape.ZOrderPosition & vbCrLf & "Name = " _ & myShape.Name Next End Sub