Sayfa ismi değiştirme

[poetika]

Merhaba, aşağıdaki makroda sorun yaşıyorum. sayfa ekledikten sonra eklenen sayfanın isminin "LİSTE" olarak değiştirilmesi gerekiyor.

Sheets("GENEL LİSTE").Select
Sheets.Add
(Hata)
Sheets("LİSTE").Select
Sheets("LİSTE").Move Before:=Sheets(4)

 

[svorm]

alttaki işinize yarar sanırım

Sub sayfaekle()
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "LİSTE2"
End Sub

 

[poetika]

alttaki işinize yarar sanırım

Sub sayfaekle()
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "LİSTE2"
End Sub

Teşekkür ederim, işimi gördü.