Try using the actual location:
TableDestination:="[YourWorkbookName]Report!R3C1"

As opposed to:
TableDestination:=""

I hope this helps.


-----Original Message-----
How would I have to change this code so that the pivot
table is created on the sheet named "Report" within the
active workbook?


ActiveWorkbook.PivotCaches.Add
(SourceType:=xlDatabase, SourceData:="data"). _
CreatePivotTable TableDestination:="",
TableName:="PivotTable1"
ActiveSheet.PivotTableWizard
TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").SmallGrid =
False
ActiveSheet.PivotTables("PivotTable1").AddFields
RowFields:=Array("PDWK", "WK - HM Store", _
"FileNo", "Employee", "Stat/Class", "LTRCode"),
ColumnFields:="Type"


TIA, AlanN