PivotTable field name is not valid????

[wisemank]

Anyone seen this?

Run-Time Error 1004?

I want to name the pivot tables so they are consistant and macro errors out. How would I fix?

Code:

' Turn off screen updating so the macro will run quicker
Application.ScreenUpdating = False
' Turn off auto re-calculation
Application.Calculation = xlManual


'Sheets("Original Detailed BOM").Select
Sheets("Base Vehicle Summary").Visible = True
Sheets("VSC to FGA").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'VSC to FGA'!R1C1:R1048576C32", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="'Base Vehicle Summary'!R3C1", TableName:= _
"PivotVSC", DefaultVersion:=xlPivotTableVersion14
Sheets("Base Vehicle Summary").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotVSC").PivotFields("Macro System")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotVSC").AddDataField ActiveSheet.PivotTables( _
"PivotVSC").PivotFields("Ext Status (USD)"), "Count of Ext Status (USD)", _
xlCount
With ActiveSheet.PivotTables("PivotVSC").PivotFields( _
"Count of Ext Status (USD)")
.Caption = "Sum of Ext Status (USD)"
.Function = xlSum
End With
With ActiveSheet.PivotTables("PivotVSC").PivotFields("Macro System")
.PivotItems("(blank)").Visible = False
End With
Range("B4:B11").Select
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

 

[RoryA]

If the error is about invalid field names, you need to check your column headers, not the pivot table name. do you have any blank cells in row 1 for example?

 

[wisemank]

You were right, the exported file had failed and theh header was removed. THanks for the help. Again.....