Mesaj Seçeneğine Göre Makro Çalıştırma

[baydeniro]

Merhaba Arkadaşlar
Mesajda Evet seçilirse imleç 1 sağa gitsin, Hayır seçilirse 1 sola gitsin diyebir kod yazmaya gayret ettim ama çalışmadı. Hata veriyor. Nerede hata yapıyorum acaba ?

Sub YES_NO()
ONAY = MsgBox("İşlemler Tamam mı?", vbYesNo)
If ONAY = vbYes Then Call YESS
If ONAY = vbNo Then Call NNO
End Sub

Sub YESISE()
ActiveCell.Offset(1, 0).Select
End Sub

Sub NOISE()
ActiveCell.Offset(-1, 0).Select
End Sub

 

[Orion1]

If ONAY = vbYes Then Call YESISE

If ONAY = vbNo Then Call NOISE

 

[baydeniro]

If ONAY = vbYes Then Call YESISE

If ONAY = vbNo Then Call NOISE

Üstad çok teşekkür ederim, gözümden kaçmış. Sağolun, varolun