Screenupdating = False not working

[mssbass]

Can anyone tell me how to fix this where my screenupdating will work? I don't want it jumping to this worksheet while running the code.

Sub CopyAppend()
Application.ScreenUpdating = False

Application.Goto (ActiveWorkbook.Sheets("ZMROSALES MAP").Range("a1"))

ActiveSheet.PivotTables("PivotTodaysOpenHolds2").PivotSelect "Notification[All]", _
xlLabelOnly, True
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("NotifTasks").Range("b3"))

Selection.End(xlDown).Select

intNewRow = Application.ActiveCell.Row + 1
strNewCell = "b" & intNewRow
Application.Range(strNewCell).Activate

ActiveSheet.Paste



End Sub

 

[joeu2004]

Does the following remedy the problem?

Sub CopyAppend()
Dim oldWS As Worksheet
Set oldWS = ActiveSheet
Application.ScreenUpdating = False
Application.Goto (ActiveWorkbook.Sheets("ZMROSALES MAP").Range("a1"))
ActiveSheet.PivotTables("PivotTodaysOpenHolds2").PivotSelect "Notification[All]", _
    xlLabelOnly, True
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("NotifTasks").Range("b3"))
Selection.End(xlDown).Select
intNewRow = Application.ActiveCell.Row + 1
strNewCell = "b" & intNewRow
Application.Range(strNewCell).Activate
ActiveSheet.Paste
oldWS.Activate
End Sub

 

[mssbass]

Yes - worked great! Thank you!