The usual way to do this is by using the sratus bar
Sub MyCode()
Application.DisplayStatusBar = True
Application.StatusBar = "Please wait, running code"
'Your code goes here
Application.StatusBar = False
End Sub
The usual way to do this is by using the sratus bar
Sub MyCode()
Application.DisplayStatusBar = True
Application.StatusBar = "Please wait, running code"
'Your code goes here
Application.StatusBar = False
End Sub