Function to display a status bar message.
Ensures status bar is continually updated.
Author: michael@excelexperts.co.uk
Function sbar(sbarmsg As String)
Application.DisplayStatusBar = True
Application.StatusBar = sbarmsg
sbarmsg = ""
End Function