VBA mehrere Formen/Shapes ansprechen

[Mitness]

Hallo liebe Community,

ich habe auf einem Arbeitsblatt eine Ansammlung von Formen/Shapes. Jetzt habe ich den Formen, die ich per VBA ansprechen möchte, einen individuellen Namen gegeben. 
Als Beispiel: Birne10, Birne20, Birne30, Birne40 usw..

Wie kann ich jetzt im Code alle ansprechen ohne alle beim Namen aufzuführen, es sind ca. 100 Formen. 

Liebe Grüße 
Mitness

[Kuwer]

Hallo Mitness,

z.B. so:

Code:

Sub aTest()
  Dim i As Long
  For i = 10 To 20 Step 10
    With ActiveSheet.Shapes("Birne" & i)
      Debug.Print .Name
    End With
  Next i
End Sub

Gruß Uwe

[snb]

Benütze F1 im VBEditor.

Code:

Sub M_snb()
  Sheet1.OLEObjects.Select
End Sub

Code:

Sub M_snb()
  Sheet1.shapes.Selectall
End Sub