makro ile sayfa eklem hakkında

[ahmet79]

aşağıda yazmış olduğum kodlar ile sayfa ekliyorum fakat 52. sayfadan sonra sürekli " aynı isimli sayfa mevcuttur!" mesajbox çalışıyor sebebi ne olabilir. ilk 52 sayfada bu problem yok

On Error GoTo 10
Sheets("Ã?rnek").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1
Unload Me
Kimlik_Bilgileri.Show

Exit Sub
10 MsgBox "AYNI İSİMLİ SAYFA MEVCUTTUR! LÜTFEN TEKRAR KONTROL EDERMİSİNİZ!", , "D İ K K A T"
Application.DisplayAlerts = False
ActiveSheet.Delete
TextBox1.SetFocus

 

[Levent Menteşoğlu]

Ã?zellikle 52. sayfadan sonrayı bırakın normaldede hata verecek bir durum sözkonusu değil kodlarınızda. Bu hatayı sadece Textbox1e girdiğiniz isim mevcutsa aynı isimi girerseniz hata verecektir.

 

[ahmet79]

sayın leventm kodlar ile 52 sayfa ekledim hiçbir hata vermedi 53. sayfayı eklemek istediğimde hatayı verdi. Acaba bir yerde yanlışmı yaptığımı düşünerek yeni bir excel dosyası açarak kodları orada denedim yeni açtığım dosyada da 52. sayfadan sonra aynı hatayı gördüm. sebebi ne olabilir? eklemek istediğim sayfa ismi dosyada mevcut olmadığı halde bu hatayı veriyor eğer müsait olursanız bir denermisiniz?