Seçilen sheetin birden fazla Move Or Copy yapacak makro

[u.L.a.s]

Merhabalar

Excel çalışma kitabımda seçili olan bir Sayfamı sağ buton tıklayıp move or copy diyerek bir kopyasını oluşturabiliyorum

yalnız ben bu seçili sayfamı 1 tane değilde 5 tane yapmak istiyorum veya 10 tane yapmak istiyorum böyle bir inputbox gelse ve ben kaçtane kopya istiyorsam o kadar kopyasını oluşturabileceğim bir makro düzeneği var mıdır?

Teşekkürler

 

[Haluk]

Sub Test()
    Count = InputBox("Kopya sayısı")
    For i = 1 To Count
        ActiveWindow.SelectedSheets.Copy After:=Sheets(Sheets.Count)
    Next
End Sub

.

 

[u.L.a.s]

çok teşekkürler üstadım. peki bu oluşan kopya sayfaları adı yanına Parantez içerisinde (2) (3) diye sayfa adları oluşuyor ya

Örneğin sheet1 in 2 tane kopyasını Sheet1 (2) ve Sheet1 (3) şeklinde isim vererek kopyalıyor

Ben Bu sheet adlarına ekstra bir ekleme yapabilir miyim

Örneğin bugünün tarihini
Sheet1 24.01.2020 (2) , Sheet1 24.01.2020 (3) şeklinde