VBA Vraagje

[novec]

Hallo

Ik heb in een vba sheet de volgende code staan

 Range(Array("Rounded Rectangle 30")

In die code verwijst hij naar "Rounded Rectangle 30" Hoe kan ik dat veranderen zodat niet nr. 30 maar elke willekeurige Rounded Rectangle geselecteerd wordt.
Ergo dus ongeacht het nummer.

Thanks


Steven

 

[Conseclusie]

Sub Macro1()
For Each Sh In ActiveSheet.Shapes
    If Sh.Name Like "Rounded Rectangle*" Then
        Sh.Select Replace:=False
    End If
Next Sh
End Sub

 

[novec]

Tnx

Opgelost!!

Steven