Not Everyone may have the status bar visible, so you might want to try
putting some text in a cell and then removing it -
Sheet1.Range("A2").Value = "Calculating...."
Application.ScreenUpdating = False
Some code
Sheet1.Range("A2").Value = ""
Application.ScreenUpdating = True

Mike F
"Don Guillett" wrote in message
...
statusbar="running"
code
statusbar=""

--
Don Guillett
SalesAid Software

"Neil Hopkinson" <Neil wrote in
message
...
I have written a macro which takes a minute or so to run. I want to set
up
a
progress bar so the user can see something happening and knows the
program
hasn't crashed. How do I do this?