calculation msg box

[Ian82]

Hi All

I need a macro to pop up a msg box to indicate that the sheet is calculating
and how far along it is, any ideas?

Thanks

 

[Lee Li Fong]

You can try to insert the coding below to ThisWorkbook if you want to pop up a msgbox box when any sheet of the workbook is calculating

Private Sub Workbook_SheetCalculate(ByVal Sh As Object
MsgBox "Calculating
End Su

Blog: http://smartusemicrosoftoffice.blogspot.com/

 

[ozgrid.com]

If your spreadsheet warrants a calculation message, you have a design flaw.
http://www.ozgrid.com/Excel/ExcelSpreadsheetDesign.htm

 

[Dave Peterson]

You can't really do this in excel. You can't get into the calculation internal
workkings.

But if you're doing it in code, you could show a msgbox:

msgbox "about to calculate"
application.calculate
msgbox "Done calculating"

But I think that this just delays the calc--since the msgbox has to be dismissed
before the calculation starts.

You could use a non-modal userform (xl2k or higher) or even the statusbar:

with application
.statusbar = "Calculating"
.calculate
.statusbar = false
end with