VBA Excel Run-Time Error 1004 - HELP!!!

[dmoonme]

Hello, I am new to VBA and I appreciated your help. I am creating a PIVOT table to parse a text file but I get this error message "Run-Time Error 1004 If you creating a PivotTable type a cell reference or select a..."

Here's the code that causing the problem:

Sheets.Add
ActiveSheet.Name = "shares_aggregate"
coordinate = "R1C1:R" & rowdata & "C" & coldata
Worksheets(DataSheet).Activate
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
coordinate, TableDestination:="shares_aggregate!R1C1", _
TableName:="shares"
ActiveSheet.PivotTables("shares").AddFields RowFields:=Array( _
"Transaction Purpose", "Transaction Date")
With ActiveSheet.PivotTables("shares").PivotFields("Number of Shares")
.Orientation = xlDataField
.Name = "Sum of Number of Shares"
.Function = xlSum
End With
Columns("A:E").EntireColumn.AutoFit
Cells(1, 1).Select

 

[Killian01]

Hiya,

I think this is because the AddFields method applies to a PivotTable object rather than the PivotTables collection as you have here

regards K