VBA code to stop 'screen flashing'

[ddander54]

I have some VBA code that I turn screen updating off to keep the screen from flashing, then turn it on later just before I end, however part of my code is doing some copy pasting, so if I turn it on after I do the copy paste, I don't see any of the data that is copy/pasted. If I turn it on before I start the copy/paste, the cells get updated, but the user sees all the screen flashing as it does the copy paste. What am I doing wrong, or how can I resolve this?

Sub currentcode()

    With Application
       .ScreenUpdating = False
       .Calculation = xlCalculationManual
       .EnableEvents = False
    End With

.....do a bunch of stuff....

    With Application
       .ScreenUpdating = True
       .Calculation = xlCalculationAutomatic
       .EnableEvents = True
    End With

....do the copy pasting......

End Sub

Sub WhatIwouldlike()

    With Application
       .ScreenUpdating = False
       .Calculation = xlCalculationManual
       .EnableEvents = False
    End With

.....do a bunch of stuff....
....do the copy pasting......

    With Application
       .ScreenUpdating = True
       .Calculation = xlCalculationAutomatic
       .EnableEvents = True
    End With

End Sub

Thanks,
Don

 

[ddander54]

Joe4,

Thanks for trying. The more I play with the code, the more I think the root of my problem is something else in the code, so I will start a new thread and will include the code there. Even tho' its related, the question might be different, so will start the new thread.

Don