Sayfa kopyalama kodundaki hata

[ynmcan]

Merhaba arkadaşlar;
Aşağıda görülen sayfa kopyalama kodundaki eksikliği bir türlü bulamadım. Birinci kopyadan sonraki kopyalamalarda, istediğim sayfa haricindeki sayfalarıda kopyalıyor. Yardımcı olursanız sevinirim.
Açıklama örnek dodyada.

Private Sub CommandButton1_Click()
Sayfa1.Range("A1") = Sayfa1.Range("A1") + 1


For j = 1 To Worksheets.Count
                Application.DisplayAlerts = False
Sheets("VERİ_GİRİŞ_FORMU").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Range("A1").Value
                 Application.DisplayAlerts = True
                 
On Error Resume Next
Next

Sheets("VERİ_GİRİŞ_FORMU").Activate
End Sub

 

[ynmcan]

Kımızı satırı kopyala yapıştır yaparken fazladan almışım. hata ondan kaynaklanmış. Meşgul etiğim için herkesten özür diliyorum.

Private Sub CommandButton1_Click()
Sayfa1.Range("A1") = Sayfa1.Range("A1") + 1
 
 
[COLOR=red]For j = 1 To Worksheets.Count[/COLOR]
                Application.DisplayAlerts = False
Sheets("VERİ_GİRİŞ_FORMU").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Range("A1").Value
                 Application.DisplayAlerts = True
 
On Error Resume Next
Next
 
Sheets("VERİ_GİRİŞ_FORMU").Activate
End Sub