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