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
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