commandbuton ile yeni sayfa açıp sayfaya isim verme

[hisimsek]

arkadaşlar bir buton ile yeni bir sayfa açıp ona isim verebilirmiyim bnu mümkünmü şimdiden teşekkürler

 

[Yalova]

Sub YeniSayfa()
Worksheets.Add
ActiveSheet.Name = "Deneme"
End Sub

 

[hisimsek]

malesef olmadı

daha doğrusu ben yanlış anlattım herhalde mesela bir ana menüde ben oluşturacağım sayfa adını yazıp butona tıkladığımda yeni sayfa benim verdiğim isimle açılsın istiyorum

 

[mehmett]

Sub Sayfaekle()
sayfa = InputBox("Eklemek istediğiniz sayfanın adı?")
Worksheets.Add
ActiveSheet.Name = sayfa
End Sub

 

[Yalova]

Sub YeniSayfa()
YSayfa = InputBox("Sayfa Adını Giriniz")
Worksheets.Add
ActiveSheet.Name = YSayfa
End Sub

 

[Yalova]

Sub YeniSayfa()
YSayfa = [A1]
Worksheets.Add
ActiveSheet.Name = YSayfa
End Sub


Bu örnekte ise A1 hücresine yazdığınız adı yeni sayfa olarak açar.

 

[hisimsek]

teşekkürler

paylaşımınız için çok teşekkür ederim