hayır tıklayınca macronun sonlandırılması

[excellkurdu]

Merhaba arkadaşlar,
dünden beri araştırıyorum, bir çok şey denedim ama beceremedim.
" PDF Yazdırmak İstiyor musunuz?" sorusuna hayır tıklayınca Run-time eror '424'
hatası veriyor. bu hatadan kurtulmak için 'HAYIR TIKLANINCA BURDA SON BULMALI yere ne yazabiliriz?
yani hayır da macro son bulsun.
kodun tamamı ektedir. Saygılarımla

Sub all_tumsayfalar()

a = MsgBox(" PDF Yazdırmak İstiyor musunuz?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then

'HAYIR TIKLANINCA BURDA SON BULMALI

 

[Civan Jack]

If a = vbYes Then yerine If a = vbNo Then Exit sub yazman yeterli.

 

[uzmanamele]

Merhaba

Bu mudur.

Exit Sub

 

[excellkurdu]

bunları denedim hocam. çalıştırdıktan hemen sonra şöyle hata veriyor.
Compile error:
End If without block If

İf lerle oynayınca çalışmıyor

 

[excellkurdu]

kod ların tamamını ekte verdim. bakarsanız sevinirim

 

[uzmanamele]

Bu şekilde olmalı.

Exit Sub
End İf

 

[excellkurdu]

Bu şekilde olmalı.

Exit Sub
End İf

hocam burda hata verdi:
20 End If
hata mesajı
Compile error:
End If without block If

 

[excellkurdu]

Galiba oldu
If a = vbYes Then
If a Then