Excel/Outlook - fortryde at sende mailen

X Jeg vil gerne sende regnarket som vedhæftet, hvor modtageren er allerede udfyldt. Det hele er kodet klart. Men jeg ikke få den til at vise den korrekte fejlbesked, hvis brugeren fortryder at sende mailen, dvs. når mailen er poppet med postmodtager og filen er vedhæftet og deraf brugeren trykker på "X" for at lukke mailen ned. Her vil jeg gerne have at der skal poppe med en besked o"mailen er ikke sendt".

Hvordan kan jeg få strikket det ind min nuværende kode:

Sub Send_()

'If Ja er valgt

On Error GoTo MyFejl

Dim myOutlok As Object
Dim myMailItm As Object

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
fName1 = ActiveWorkbook.Name

With otlNewMail
.To = "test@test.dk"
.Subject = fName1
.Attachments.Add fName
.Display

End With


MsgBox prompt:="Skemaet er sendt. Klik på OK for at returnere til Excel.", _
Title:="Skemaet sendt!"
Exit Sub

MyFejl:
MsgBox "Vær opmærksom! Skemaet er ikke sendt!", vbCritical


End Sub