Create a "running" message
 

Hi,

I'm working with Excel Visual Basic.

When activate the program the screen is "jumping"
due to the program action.
Its jump from one cell to another and to other worksheets
as well.

My Question:

If I have a loop
For I=1 to 100
Program
Next I

How can I freeze the screen and create a message
That will say "the program is in step "I" (The "I" from
the loop)
while the program is running.

I would like to say thank you very much for your help.
All your previous answers helped me a lot.

Thank you,

Haim.

Create a "running" message
 

One solution is to use the following statement

Application.Screenupdating = False

at the top of your coe to stop screen flashing and updating.

If you want to display messages in the statusbar, you can do so via

Application.Statusbar =:"any text"

and to clear, set to false.

Other solutions are to display a worksheet prior to the Screenupdating =
false message and write text to it that says
"Working...." then do the screenupdating = false. Be sure to get read of
the temporary worksheet when you are done!

Robert Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"Haim" wrote in message
...
Hi,

I'm working with Excel Visual Basic.

When activate the program the screen is "jumping"
due to the program action.
Its jump from one cell to another and to other worksheets
as well.

My Question:

If I have a loop
For I=1 to 100
Program
Next I

How can I freeze the screen and create a message
That will say "the program is in step "I" (The "I" from
the loop)
while the program is running.

I would like to say thank you very much for your help.
All your previous answers helped me a lot.

Thank you,

Haim.

Create a "running" message
 

Minor correction (remove colon to avoid compile error):

Application.StatusBar = "any text"

and

Application.StatusBar = False

In article ,
"Bob Flanagan" wrote:

If you want to display messages in the statusbar, you can do so via

Application.Statusbar =:"any text"

and to clear, set to false.