Makro ile döngü kurma (buton-düğme sil)

[kykbt]

----------------
S ub Makro2ButtonSil()
ActiveSheet.Shapes("Button 478").Select
Selection.Cut
'burada dngü olsun ve buton no vermeden tüm olan butonları silsin istiyorum
ActiveSheet.Next.Select
'sonra diğer sayfa ve tüm butonlar silinsin
E nd Sub
----------------
Yukarıda ki döngüyü nasıl kurabilirim??

 

[Seyit Tiken]

Aşağıdaki gibi deneyebilirsiniz.

Sub Makro1()
For s = 1 To Sheets.Count
Sheets(s).DrawingObjects.Delete
Next
End Sub

 

[kykbt]

Arkadaş bu kadar kolay silmek varmıymış. Ellerine sağlık.
Bir ricamda sayfa geçişlerini kontrol edebilir olursam sanki dahada güzel olacak.
Tekrar teşekkürler