Sub Meldung()
 Application.StatusBar = "Hallo ich bin die Meldung in der Statuszeile"
End Sub

' Meldung deaktivieren
Sub Meldung_aus()
 Application.StatusBar = False
End Sub