Çoklu Dosya Kopyalamak

[taskoparan]

Sayın arkadaşlar

Bir çalışma sayfasını aynı excel dosyasının içerisinde 10dan fazla kopyalamak istiyorum aynı özellikte ne yapabiliriim ?

 

[ozgretmen]

Dosya ekte...

Sub coklastır()
For a = 1 To 10
Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a
Next
End Sub

 

[taskoparan]

Çok teşekkürler yardımlarınız için teşekkürler

 

[ozgretmen]

Çok teşekkürler yardımlarınız için teşekkürler

Rica ederim...