Yeni sayfaya isim vermek

[crackerdent]

Arkadaşlar,
bir makro yardımıyla yeni eklediğim bir sayfayı en sona taşıyıp adına da sayfa1 a1 deki değeri atamak istiyorum. yardımcı olursanız sevinirim.

 

[Kemal Demir]

Sub Sayfaekle()
Sheets.Add , after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Sayfa1").Range("a1").Value
Sheets("Sayfa1").Select
End Sub

Bu zannedersem ısıne yarar

 

[crackerdent]

Dostum çok teşekkür ederim