anybody having solution for this

[akkinarula]

Hi All,

I've written macros for each sheet in my workbook. I've initialize them on workbook open () function .

The problem is that each time i open the workbook all macros are run and this calculation of macros is displaying to me .

I want to display some msg like "PROCESSING PLEASE WAIT".Or something else but running of macros should not display.

Any Body having solution for this plz tell me.

thanks in advance.

 

[WinteE]

Start your macrro's with

Application.ScreenUpdating = False

end end it with

Application.ScreenUpdating = True

to stay on the same sheet where you start the macro.

 

[akkinarula]

Start your macrro's with

Application.ScreenUpdating = False

end end it with

Application.ScreenUpdating = True

to stay on the same sheet where you start the macro.

thanks it worked ,but if i want to display " Processing.Please wait "
then what should i do

 

[GTO]

A userform would be my thrust. If there is enough going on that the user must stare at it for a bit (and we'd like them 'entertained' enough to keep their **** fingers from poking at stuff), maybe a pseudo progress bar.

 

[WinteE]

Add this code before the '..updating = False'

    MsgBox "De macro will start after you click 'OK'"

and this after '.. updating = True'

    MsgBox "De macro is ready"

By the way, do you use the same action for every sheet ?

 

[akkinarula]

Add this code before the '..updating = False'

    MsgBox "De macro will start after you click 'OK'"

and this after '.. updating = True'

    MsgBox "De macro is ready"

By the way, do you use the same action for every sheet ?

No Each Sheet is doing different action

And by the way i've to write this msg box for each sheet & i've to click the msg box for each sheet that i dont want. iwant to display common msg box for all sheets.

any way thanks for ur suggetion.

 

[mikerickson]

Dim dStatus As Boolean

With Application
    dStatus = .DisplayStatusBar
    .DisplayStatusBar = True
    .StatusBar = "Processing Please Wait"
End With

    Call theMacro
    
With Application
    .StatusBar = False
    .DisplayStatusBar = dStatus
End With

 

[akkinarula]

Dim dStatus As Boolean
 
With Application
    dStatus = .DisplayStatusBar
    .DisplayStatusBar = True
    .StatusBar = "Processing Please Wait"
End With
 
    Call theMacro
 
With Application
    .StatusBar = False
    .DisplayStatusBar = dStatus
End With

thanks