Probleme d'arret de macro avec bonton "annuler"

Private Sub cmdNewEntryParRef_Click()
Dim SelectedRow As Range
Dim lngRow As Long, strCC As String, lNumInc As Long
If Not IsSelectionOk Then Exit Sub
SelectRow True
Set SelectedRow = Selection.EntireRow
FrmChoixRef.Show 1
<<--- Si je clique sur le bouton annuler je voudrai que la macro s'arrete
Range('A65000').End(xlUp).Offset(0, 0).Select
Context = enNewtaskParRef
FrmCopieRef.Show 1
LockUnlockWorkSheet shtEnCours, enLock
Range('A65000').End(xlUp).Offset(0, 0).Select
End Sub

Cliquez pour agrandir...

Private Sub cmdCancel_Click()
  If IsOpening Then
    ThisWorkbook.Close False
  Else
    Unload Me
  End If
End Sub