Hi there,
I created a pivot table and captured the keystrokes as a recorded macro. But
now when I re-run the code, I get error message 1004: Unable to get the
PivotItems property of the PivotField class. the lspecific line that fails:
ActiveSheet.PivotTables("PivotTable1").DataPivotFi eld.PivotItems("Sum of
Value").Position = 1

The problem results in crerating the pivot tables, but the coulms come out
with a Count of Values instead of Sum of Values.

Here's the entire code:
Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Select
'create pt for trust acct
ActiveWorkbook.PivotCaches.Add(SourceType:=xlConso lidation,
SourceData:= _
Array("Sheet1!R1C1:R76C2", "Item1")).CreatePivotTable
TableDestination:= _
"'[Funds Ops Recon 06232009.xls]Sheet1'!R16C10",
TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion10

ActiveSheet.PivotTables("PivotTable1").DataPivotFi eld.PivotItems("Sum of
Value").Position = 1 '<<<<< this line is
where it fails
ActiveWorkbook.ShowPivotTableFieldList = True
Application.CommandBars("PivotTable").Visible = False
ActiveWorkbook.ShowPivotTableFieldList = False

Thanks in advance for any tips

--
Chris Freeman
IT Project Coordinator