Untested...

...., tabledestination:=worksheets("Forecast").range("A1 "), ...

Aaron wrote:

Hello,

I have the following code that I need to change. I need the source data to
check for the end of page and the Table Destination to be on a different tab
(TabName: forecast)

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'Forecasting Tool'!R2C1:R4784C44").CreatePivotTable
TableDestination:=Range( _
"A1"), TableName:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Unique Ref1"
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Wk1 Forecast by
Kit")
.Orientation = xlDataField
.Caption = "Max of Wk1 Forecast by Kit"
.Function = xlMax
End With
End Sub

Thanks!

--

Dave Peterson