the markfr ditherings

' make StatusBar visible
Application.DisplayStatusBar = True

'First Message
Application.StatusBar = String(5, ChrW(9609)) & "Working..."

Application.Wait Now + TimeValue("00:00:02") '<-- Replace this line with your own code to do something

'Second Message
Application.StatusBar = String(10, ChrW(9609)) & "Still Working..."

Application.Wait Now + TimeValue("00:00:02") '<-- Replace this line with your own code to do something

'Last Message
Application.StatusBar = String(15, ChrW(9609)) & "Almost Done..."

Application.Wait Now + TimeValue("00:00:02") '<-- Replace this line with your own code to do something

'Relinquish the StatusBar
Application.StatusBar = False

End Sub