Wanna Try this

[MrShickadance]

well If you want to know which End you call you can do something like this:

Sub My_End(byVal reason As String)
  
  Call MsgBox(reason)  '' do what you want to here
  End

End Sub

Now istead of calling End call My_End

is this what you want?