Showing Error Description In Status Bar :

Sometime we need to see the Program Execution Status : if you need to see what is Running inside the program you can use status bar to show Massage and Error Description : 


Try the Following Code :





Sub showMsg()
    On Error GoTo Err:
    a = 1 / 0
Err:
    If Err.Number <> 0 Then
    Application.StatusBar = Err.Description
    End If
End Sub

Sub Processing()

For i = 1 To 5

Application.Wait Now + TimeValue("00:00:01")

    Application.StatusBar = "Current Value of I = " & i

Next

End Sub