ON ERROR EXIT SUB

Sub Aufruf_Meldung()

On Error GoTo ErrorHandler
'vbkritical
'vbInformation
'vbExclamation
'vbQuestion

    ActiveWorkbook.Sheets(1).Activate

    MsgBox "Today is" & Chr(13) & Date & Chr(13) & "Isn't it great to be in the office?", vbQuestion + vbYesNo, "Wish You a Great Day"
   
    Exit Sub
ErrorHandler:

    MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.Source, _
        vbCritical, "Ein Fehler ist aufgetreten "
    Exit Sub
End Sub