You might want to put this in a class module as follows.
Add a a class module and name it SuspendRefresh. The code is:
Option Explicit
Private Sub Class_Initialize()
Application.ScreenUpdating = False
End Sub
Private Sub Class_Terminate()
Application.ScreenUpdating = True
End Sub
' End of class module
In your sub or function, do the following
Sub DemoScreenUpdateClass()
dim su as SuspendRefresh
' when ready to suspend the screen refresh
set su = new SuspendRefresh
' when ready to resume screen refresh
set su = Nothing
' if you don't want to resume screen refresh until the Sub or Function
ends, do nothing. VBA will
' automatically perform the "set su = Nothing" for you on Exit Sub or Exit
Function
End Sub
Mike.