Sub printshapesname() For s = 1 To ActiveSheet.Shapes.Count Debug.Print ActiveSheet.Shapes(s).Name Next End Sub