ActiveWorkbook.Application.ScreenUpdating = False Not Working

[DoctorV]

have a very long procedure which does many things. I set the first lin
of my code to ActiveWorkbook.Application.ScreenUpdating = False
Usually when I have done this the user does not see all the scree
flickering and the actions of your procedure but for this one you se
all of that. How can I set this so that the user does not see all o
the Screen Updating and when they click All Done they can continu
working?

Thanks


ActiveWorkbook.Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Unprotect
Application.Run ("MoveLongQuoteData")

Sheets(Array("Final Long Quote")).Select
Sheets("Final Long Quote").Activate
Application.Run ("Unhide")
Application.Run ("pic")
Application.GoTo Reference:="R2:R64000"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:
_
False, Transpose:=False
Application.CutCopyMode = False
Sheets("Long_Quote").Select
ActiveSheet.Protect
Application.Run ("FitFormsRowSize_Long_Quote")
Application.Run ("DeleteLongQuoteRows")
Application.Run ("SetLongQuote_Autonumber")
Application.Run ("LongQuote_AddPageBreaks")
Application.Run ("FormatFinalLongQuote")
Application.DisplayAlerts = True
ActiveWorkbook.Application.ScreenUpdating = True
MsgBox "All Done

 

[Trevor Shuttleworth]

Think you just need:

Application.ScreenUpdating = False

Regards

Trevor