sayfa sil

[limanC34]

Selam Arkadaşlar
Siteden aldığım sayfa ekle dosyası mükemmel ama bana birde aynı dosyada sayfa sil lazım.Silerken sayfa ismi sormalı.
Teşekkürler.

 

[uzmanamele]

bu kodu dener misiniz

Sub Sayfa_sil()
Dim Silinecek_Sayfa_Adı As String, SAYFA As Worksheet
Silinecek_Sayfa_Adı = InputBox("Sayfa ismi giriniz !", "SAYFA SİLME")
Sheets(Silinecek_Sayfa_Ad&#305.Delete
End Sub

 

[limanC34]

Hocam herzamanki gibisin.SÜPERRRRRRRR.
Çok teşekür ederim.
Saygılarımla.