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
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