Farklı kaydet makrosu : aynı adlı dosya kontrolü

[hakanpacal]

Merhabalar,
Üzerinde çalıştığım bir excel dosyasına farklı kaydet makrolu bir buton ekledim ve sorunsuz çalışıyor; fakat aynı adlı dosya mevcutsa üzerine yazdırıyor. Ben öyle bir durumda uyarı çıkmasını ve kaydetmeyi engellemesini istiyorum. Bunun kontrolünü sağlamak için kodlarda nasıl bir değişiklik ya da ekleme yapabilirim?

isim1 = "C:\Users\hakan\Desktop\"
isim2 = Range("AH11").Value
isim3 = " Kabul Teklif Belgesi"
isim4 = ".pdf"
tm = Range("AH4").Value
ad = isim1 & isim2 & " " & tm & isim3 & isim4
Range("B2:G25").Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ad, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

 

[askm]

Ad tanımlamasında sonra
if dir(ad)="" then
PDF kayıt kodlari
Else
Msgbox "Dosya mevcut"
End if
Yazin

 

[hakanpacal]

Teşekkür ederim bu şekilde düzelmiş oldu

 

[askm]

Rica ederim.Kolay gelsin.