Simpler loop

[Paul Sansom]

Hi All and HNY2019
Is there simpler and cleaner way to code this to make the Status Bar appear to flash?

Sub StatusFlash()
    Do Until c > 5
        Application.StatusBar = "Setting up - "
        Application.Wait (Now + TimeValue("00:00:1"))
        Application.StatusBar = "Setting up - Please be patient"
        Application.Wait (Now + TimeValue("00:00:1"))
        c = c + 1
    Loop
    Application.StatusBar = False
End Sub