Update Excel Status Bar with Custom Messages

This allows you to put a custom message (passed via a call) to the status bar in excel to let the user know whats happeneing.

e.g.

update_Status "Please Wait ..."

The Code

Sub update_status(s As String) Application.StatusBar = s Application.ScreenUpdating = True Application.ScreenUpdating = False End Sub

Code Snippits