Application Screen updating

Hi,

I have a sub below, i have wrapped the sub, but it still shows me bits of what its doing, whereas it should be sticking on the sheet "Pic"

Any suggestions?

I dont want to see any updates.....

Thanks

Sub RunReport()


    Sheets("Pic").Visible = True
    Sheets("Pic").Select
    
    Application.ScreenUpdating = False


    OpenFiles

    ClearSheets
    
    DoTheWork
    
    SaveFiles
    
    Sheets("Pic").Visible = 2
    
    Sheets("Admin").Select
    
    MsgBox "Report is complete and files are saved"
    
Application.ScreenUpdating = True

End Sub

Open in new window

Seamus2626Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

krishnakrkcCommented:
On each sub include these line of codes

    Dim blnSUpdating    As Boolean
    
    With Application
        blnSUpdating = .ScreenUpdating
        .ScreenUpdating = False
    End With
    
    'your code
    
    
    Application.ScreenUpdating = blnSUpdating

Open in new window


Kris
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
NorieVBA ExpertCommented:
If it's what's happening in the subs ebring called that you are seeing it's hard to suggest anything specific without seeing the code in those subs.

Are you selecting/activating anything in those subs?
0
Andrew VelascoOperational Account Management & Data AnalystCommented:
You could also try opening your other files first, then setting Screen Updating to false.
0
Seamus2626Author Commented:
Hi,

I found the sub, its an old recorded macro that i integrated to the procedure

But at the start of the sub i have

Application.ScreenUpdating = False


Thanks

Sub DoTheWork()


Application.ScreenUpdating = False
    
    Windows("master.xlsm").Activate
    Sheets("Sheet1").Select
    ActiveSheet.UsedRange.Clear
    Windows("MonthlyDownload.xlsx").Activate
    Sheets("Sheet1").Select
    ActiveSheet.UsedRange.Copy
    Windows("master.xlsm").Activate
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveSheet.Paste
    
    With ActiveSheet
    If .AutoFilterMode = True And .FilterMode = True Then ActiveSheet.ShowAllData
    End With
    

    

    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=3, Criteria1:= _
        "PB Slides English"
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=7, Criteria1:= _
        "=Expired", Operator:=xlOr, Criteria2:="=Requires Review"
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="ASP"
    Range("$A$1:$G$20000").Select
    Selection.Copy
    Windows("Asia.xlsm").Activate
    Sheets("PB Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    DateStamp
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="EUROPE"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Europe.xlsm").Activate
    Sheets("PB Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    DateStamp
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="LATAM"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LATAM.xlsm").Activate
    Sheets("PB Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    DateStamp
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="ME"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("MENA.xlsm").Activate
    Sheets("PB Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    DateStamp
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="NA"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("NA.xlsm").Activate
    Sheets("PB Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    DateStamp
    Windows("master.xlsm").Activate
    Rows("1:1").Select
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=3, Criteria1:= _
        "PM 2012 CONTENT"
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=7, Criteria1:= _
        "=Expired", Operator:=xlOr, Criteria2:="=Requires Review"
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="ASP"
    Range("$A$1:$G$20000").Select
    Selection.Copy
    Windows("Asia.xlsm").Activate
    Sheets("PM Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="EUROPE"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Europe.xlsm").Activate
    Sheets("PM Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="LATAM"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("LATAM.xlsm").Activate
    Sheets("PM Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="ME"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("MENA.xlsm").Activate
    Sheets("PM Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("master.xlsm").Activate
    ActiveSheet.Range("$A$1:$G$20000").AutoFilter Field:=4, Criteria1:="NA"
    Range("$A$1:$G$20000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("NA.xlsm").Activate
    Sheets("PM Review").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("master.xlsm").Activate
    Sheets("Sheet1").Select
    With ActiveSheet
    If .AutoFilterMode = True And .FilterMode = True Then ActiveSheet.ShowAllData
    End With
    

Open in new window

0
Seamus2626Author Commented:
Perfect!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.