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

--
Message posted from http://www.ExcelForum.com

Think you just need:

Application.ScreenUpdating = False

Regards

Trevor


"DoctorV >" <<(E-Mail Removed)> wrote in message
news(E-Mail Removed)...
> have a very long procedure which does many things. I set the first line
> of my code to ActiveWorkbook.Application.ScreenUpdating = False.
> Usually when I have done this the user does not see all the screen
> flickering and the actions of your procedure but for this one you see
> all of that. How can I set this so that the user does not see all of
> the Screen Updating and when they click All Done they can continue
> 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"
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>