Microsoft 365 Arret macro si condition est fausse

Bonjour j'aimerai pouvoir ne pas continuer ma macro si par exemple elle trouve une erreur lors de la vérification d'une données d'une requête. Merci. Ci-joint ma macro

If Not Application.Dialogs(xlDialogOpen).Show("R:\*rmp02*.*") Then End

'Recherche bonne requête

If Range("A5").Value Like "TR.HA-*" Then 'SI CONDITION VRAIE

Application.ScreenUpdating = False
Cells.Select
Selection.Copy
'ActiveWorkbook.Close

Windows("Suivi kilométrique et entretien des trains MP73 MP89 Ligne 6 - Copie.xlsm").Activate
Sheets("rmp02 MP73").Visible = True
Sheets("rmp02 MP73").Select
Cells.Select
ActiveSheet.Paste

Sheets("rmp02 MP73").Select
ActiveWindow.SelectedSheets.Visible = False


Else 'SI CONDITION FAUSSE
'Boîte de dialogue : avertissement
MsgBox "Vérifier la requête selectionnée" & Chr(10) & " OU" & Chr(10) & " La saisie dans la GMAO", vbCritical, "ERREUR"
Call Fermeture.Fermeture

* C'EST ICI QUE JE VOUDRAIS QUE MA MACRO S'ARRETE SI ELLE TROUVE UNE ERREUR ET DE NE PAS CONTINUER


If Not Application.Dialogs(xlDialogOpen).Show("R:\*rmp02*.*") Then End