Sayfadaki WordArt ları toplu silmek

[ademkavak]

ActiveSheet.Shapes("WordArt 3").Select
Selection.Delete

sayfada birçok wordArt bulunuyor. İstediğim zaman hepsini birden silmek için ne yapabilirim. Hata vermesini de engellersek daha iyi olur.
şimdiden teşekkürler

 

[Haluk]

Sub Test()
    Dim WdArt As Shape
    For Each WdArt In ActiveSheet.Shapes
        If LCase(Left(WdArt.Name, 7)) = "wordart" Then WdArt.Delete
    Next
End Sub

 

[ademkavak]

Teşekkür ederim
iyi çalışmalar