T
T De Villiers
Invalid Procedure call or argument when I run the following.
It seems to fail on the asterixed line.
Thks
Sub test()
x = Range("A50000").End(xlUp).Row
y = Range("IV1").End(xlToLeft).Column
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=
_
** "Original!" & Cells(1, 1).Address & ":" & Cells(x,
y).Address).CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3,
1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Cat4",
_
ColumnFields:="Account"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Amount").Orientation
= _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.Name = "Check"
End Sub
It seems to fail on the asterixed line.
Thks
Sub test()
x = Range("A50000").End(xlUp).Row
y = Range("IV1").End(xlToLeft).Column
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=
_
** "Original!" & Cells(1, 1).Address & ":" & Cells(x,
y).Address).CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3,
1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Cat4",
_
ColumnFields:="Account"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Amount").Orientation
= _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.Name = "Check"
End Sub