Solution : Almost
My spreadsheet is very large and is set to manual calc, so i want the watch window to appear whenever a manual calc is performed.
Place this code in 'ThisWorkbook'
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Watch_Window.Show
End Sub
Create a userform and rename Watch_Window. This form has 3 text boxes which have been renamed lblMessage1,2 &3
Place this code in the userform.
Private Sub UserForm_Initialize()
lblMessage1.Caption = Range("Ebit07") 'Change the Label Caption
lblMessage2.Caption = Range("Ebit08") 'Change the Label Caption
lblMessage3.Caption = Range("Ebit09") 'Change the Label Caption
End Sub
Private Sub UserForm_Activate()
Me.Repaint 'Refresh the UserForm
End Sub
On the change event, which in this case is calcuation the userform will appear. Having a problem closing the userform, from other posts on this forum this may have something to do with Userform_Initialize. If anyone has a solution it would be appreciated.
I've copied the above solution from the Microsoft Knowledge Database from the "OFF97: How to Show a "Now Processing" Dialog While Macro Runs" article (id162257)