MsgBox Evet-Hayır-İptal ayarı

[dedenet]

Msgbox için evet, hayır, iptal seçenekleri yazmak istiyorum. aşağıdaki kodu yazdım ancak bir yerlerde hata var. yardımcı olabilir misiniz

Sub Silme()

If MsgBox([R1] & " isimli kaydı silmek istediğinizden emin misiniz?", vbYesNoCancel, "Kayıt Sil") = vbYes Then

Sheets("Liste").Select
Rows("5:5").Select
Selection.Delete Shift:=xlUp
MsgBox "Silme işlemi tamamlandı"

ElseIf vbCancel Then
Sheets("Anasayfa").Select
MsgBox "Silme işlemi iptal edildi"

Else
MsgBox "Silme işlemi için hayır seçildi"

End If

End Sub

 

[veyselemre]

Sub Silme()
    msg = MsgBox([R1] & " isimli kaydı silmek istediğinizden emin misiniz?", vbYesNoCancel, "Kayıt Sil")
    If msg = vbYes Then
        Sheets("Liste").Select
        Rows("5:5").Select
        Selection.Delete Shift:=xlUp
        MsgBox "Silme işlemi tamamlandı <EVET>"
    ElseIf msg = vbCancel Then
        Sheets("Anasayfa").Select
        MsgBox "Silme işlemi iptal edildi <İPTAL>"
    Else
        MsgBox "Silme işlemi için hayır seçildi <HAYIR>"
    End If

End Sub

 

[dedenet]

Teşekkür ederim çalışıyor ancak
MsgBox "Silme işlemi tamamlandı <EVET>"
sonunda <EVET> yazmanızın bir sebebi var mı?

 

[veyselemre]

Ben olsam denerdim.