butonla nasıl yeni sayfa oluşur

[abcd_efe]

merhaba arkadaşlar
sorum şu:
tek sayfalık bir excel dosyasında bir buton var.
bu butona her basışımda yeni bir sayfa eklenmesini ve her seferinde yine yeni bir sayfa eklenmesini istiyorum.
yardımcı olursanız sevinirim.
şimdiden teşekkürler

 

[Haluk]

[vb:1:6b1ae6f1d6]Sub Test()
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
End Sub
[/vb:1:6b1ae6f1d6]

 

[abcd_efe]

teşekkür ederim.