inputbox

bonjour je suis debutant en vba
j ai une macro pour supprimer une feuille de classeur ainsi que des cellules dans 2 autres feuilles
le bouton annuler de mon inputbox me renvoie sur une erreur pouvez vous m aider

Sub SupprFiche()
NomDesignation = InputBox("Nom de la désignation à supprimer")
Set Designation = Sheets("Sommaire fiches").Columns("B:B").Find(NomDesignation, Range("B7"), xlValues, xlWhole)
If Designation Is Nothing Then GoTo Messageerreur
Sheets("Sommaire fiches").Cells(Designation.Row, 2).Delete Shift:=xlUp
Application.DisplayAlerts = False
Sheets(NomDesignation).Delete
Application.DisplayAlerts = True
Set Designation = Sheets("Récapitulatif").Columns("A:A").Find(NomDesignation, Range("A13"), xlValues, xlWhole)
Sheets("Récapitulatif").Unprotect ("1308")
Sheets("Récapitulatif").Range("A" & Designation.Row & ":W" & Designation.Row).Delete Shift:=xlUp
Sheets("Récapitulatif").Protect ("1308")
Exit Sub
Messageerreur:
MsgBox " La désignation n'existe pas"
End Sub

j ai essaye de rajouter dans mon inputbox ,vbYesCancel avec if NomDeignation=vbYes then.....
et if NomDesignation=vbCancel then exit sub
mais ca m annule ma suppression de feuille ainsi que mon message d erreur
merci