Thisbook a sil makrosu!

[akhsahbaz]

ActiveWindow.SelectedSheets.Delete

Yukarıdaki makro ile Commandbuttona bastığımda makronun yazılı olduğu "A" adlı sayfayı silebiliyorum. Thisbook kısmına makroyu yazıp "A" sayfasını nasıl silebilirim?

 

[leumruk]

Selamlar,

Sub Sil()
Sheets("A").Select
ActiveWindow.SelectedSheets.Delete
End Sub

 

[akhsahbaz]

Sn.leumruk teşekkür ederim.

 

[leumruk]

Sn.leumruk teşekkür ederim.

Rica ederim.