Invalid argument or procedure Pivot chart vba

I didn't think this was going to be hard, but, i'm trying to set up a pivot chart using VBA, so I recorded a Macro, but now even when I try to use that same macro I get the "Run-time error '5':
Invalid procedure call or argument

I just think it's weird that I get that after recording a macro and not changing anything, but maybe someone could help me with this. Here is what the recording comes up with:

Sub Macro7()

ActiveWorkbook.PivotCaches.create(SourceType:=xlDatabase, SourceData:= _
"ICS-GSD-Account Management!R2C1:R1106C8", Version:=xlPivotTableVersion10). _CreatePivotTable TableDestination:="ICS-GSD-Account Management!R2C9", _
TableName:="PivotTable10", DefaultVersion:=xlPivotTableVersion10
Sheets("ICS-GSD-Account Management").Select
Cells(2, 9).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'ICS-GSD-Account Management'!$I$2:$O$15")
ActiveChart.ChartType = xlColumnClustered
End Sub



When I run the macro, the error comes up for the first part:

ActiveWorkbook.PivotCaches.create(SourceType:=xlDatabase, SourceData:= _
"ICS-GSD-Account Management!R2C1:R1106C8", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="ICS-GSD-Account Management!R2C9", _
TableName:="PivotTable10", DefaultVersion:=xlPivotTableVersion10

But I can't really tell what's wrong in there.

Eventually i want to adapt this so that it runs through each of the sheets in my workbook, but I can't even get this initial code to work. Any hlep that you have would be great

sorry about that, let me see if this works, this is my first time posting on one of these thigns

ActiveWorkbook.PivotCaches.create(SourceType:=xlDatabase, SourceData:= _
        "ICS-GSD-Account Management!R2C1:R1106C8", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="ICS-GSD-Account Management!R2C9", _
        TableName:="PivotTable10", DefaultVersion:=xlPivotTableVersion10
    Sheets("ICS-GSD-Account Management").Select
    Cells(2, 9).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'ICS-GSD-Account Management'!$I$2:$O$15")
    ActiveChart.ChartType = xlColumnClustered

Yeah, i got it deleted, which is why i thought it was odd that it wouldn't run, since i had just recorded it

ok, i tried that, and went into a step through, this time it gave me the error at the line:

Set pt = pc.CreatePivotTable(TableDestination:="ICS-GSD-Account Management!R2C9", _
        TableName:="", DefaultVersion:=xlPivotTableVersion10)

Good Morning Romperstomper or in your case evening. I have a similar issue with the Macro. I am trying to basically trying to build a print button that will create a pivot table before it prints for our employee travel expense forms.

I have tried to incorporate your solution to this issue from a previous thread but I am getting hung up. This is my original macro

Range("A11").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Pivot", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
:="Travel Expense!R47C1", TableName:="PivotTable11", DefaultVersion:= _
xlPivotTableVersion14

Sheets("Travel Expense").Select
Cells(47, 1).Select

And this is what I have tried to incorporate:
Dim pc As PivotCache, pt As PivotTable
Dim cht As Chart
Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Pivot", Version:=xlPivotTableVersion14)
Set pt = pc.CreatePivotTable(TableDestination:=Sheets().Cells(47, 1), _
TableName:="", DefaultVersion:=xlPivotTableVersion14)

Thanks in advance for any help you can give.

Good Morning Romperstomper or in your case evening. I have a similar issue with the Macro. I am trying to basically trying to build a print button that will create a pivot table before it prints for our employee travel expense forms.

I have tried to incorporate your solution to this issue from a previous thread but I am getting hung up. This is my original macro

Range("A11").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Pivot", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
:="Travel Expense!R47C1", TableName:="PivotTable11", DefaultVersion:= _
xlPivotTableVersion14

Sheets("Travel Expense").Select
Cells(47, 1).Select

And this is what I have tried to incorporate:
Dim pc As PivotCache, pt As PivotTable
Dim cht As Chart
Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Pivot", Version:=xlPivotTableVersion14)
Set pt = pc.CreatePivotTable(TableDestination:=Sheets().Cells(47, 1), _
TableName:="", DefaultVersion:=xlPivotTableVersion14)

Thanks in advance for any help you can give.

That got it! thanks so much