Acil Soru: Yeni Çalışma Sayfası Ekleme

[SAGULNET]

Merhaba;

Bir excel dosyama kullanıcı bir tuşa bastığında çalışma sayfası ekleteceğim, fakat çalışma sayfası excel dosyasında varsa hata alıyorum. Kullandığım kod aşağıda;

Worksheets.Add
ActiveSheet.Name = "tapu_kayit_makrosu"

Şöyle bir şey istiyorum; Eğer bu çalışma sayfasından varsa hata ekranı gelmesin

 

[YUSUF44]

şu kod aynı sayfa varsa bu isimde sayfa bulundu diye uyarı verir ve tamam'a basınca makro sonlanır.

Private Sub CommandButton1_Click()
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "tapu_kayit_makrosu" Then
        [COLOR=Red]MsgBox "Bu isimde bir sayfa bulundu"[/COLOR]
        Exit Sub
    End If
  Next i
  Worksheets.Add
  ActiveSheet.Name = "tapu_kayit_makrosu"
End Sub

kırmızı olan bölümü silerseniz uyarı vermeden sonlanır.

 

[SAGULNET]

Çok teşekkür ederim..