Inputbox da Cancel sorunu

[soykan]

Makro ile yeni bir sayfa açmak ve Inputbox aracı ile bunu adlandırmak istiyorum.
Aşağıdaki makroyu yazıyorum.
Sheets(ActiveSheet.Name).Copy After:=Sheets(Worksheets.Count)
aciklama = "Tarihi Giriniz gg.aa.yy"
Baslik = "Tarih"
ActiveSheet.Name = InputBox(aciklama, Baslik)
Range("F2").Value = ActiveSheet.Name
Ancak Inputbox çıktığında Cancel tuşuna bastığımda hata veriyor. Cancel' a bastığımda bir şey yapmadan makroyu nasıl sonlandırabilirim.

Yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub SAYFA_EKLE()
    Sheets(ActiveSheet.Name).Copy After:=Sheets(Worksheets.Count)
    aciklama = "Tarihi Giriniz gg.aa.yy"
    Baslik = "Tarih"
    SAYFA_ADI = InputBox(aciklama, Baslik)
    If SAYFA_ADI = "" Or SAYFA_ADI = False Then Exit Sub
    ActiveSheet.Name = SAYFA_ADI
    Range("F2").Value = ActiveSheet.Name
End Sub

 

[soykan]

Çok teşekkürler elinize sağlık. İyi çalışmalar.