Satusbar in Excel anpassen und veraendern

Manipulation der Statusbar:

Manchmal möchte man einen Meldungstext nicht über eine MessageBox ausgeben sondern die Status-Zeile von Excel benutzen.
Der hier vorgestellte VBA-Code lässt in der StatusBar den Text "Test" erscheinen und ihn 2x für eine Sekunde blinken mit je einer Sekunde Pause dazwischen.
Am Ende muss die StatusBar wieder auf "Standard" gesetzt werden, weil Excel sonst keine Meldungen über diese Leiste mehr ausgibt.

Sub SBar()

' Manipulation der Statusbar:
' Ändern des Status-Textes und blinken
' Achtung: während der Ausführung des Makros
' ist keine weitere Aktion in Excel möglich.

With Application

.StatusBar = "Test"
.DisplayStatusBar = True
For I = 1 To 4

' "TimeSerial" geht auch, aber der
' Code ist viel zu lang:
'.Wait TimeSerial(Hour(Now()), _
' Minute(Now()), Second(Now()) + 1)

' besser:
.Wait (Now + TimeValue("0:00:01"))

' Umschalten von "Test" auf "Nichts"
' und umgekehrt:
Select Case .StatusBar

Case Is = "Test"
.StatusBar = ""
Case Else
.StatusBar = "Test"

End Select

Next I
.StatusBar = False

End With

End Sub