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