I keep getting errors when trying to create a pivot table from
existing sheet data... I'm actually using a web query to populate the
"RawData" sheet, then trying to use that data to create a pivot
table...

Does anyone have any ideas why this might not be working?

Thank in advance,
Tim


Dim PTCache As PivotCache
Dim Table As PivotTable

Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase,
SourceData:=Range("RawData!A1:F245"))
Set Table = PTCache.CreatePivotTable(TableDestination:=Sheets( "Upgrade
Report").Range("a18"), TableName:="ptUpgrade")

With Table
With .CubeFields(sRowField1)
.Orientation = xlRowField
.Position = 1
End With

If sRowField2 < "none" Then
With .CubeFields(sRowField2)
.Orientation = xlRowField
.Position = 2
End With
End If

With .CubeFields(sDataField)
.Orientation = xlDataField
.Position = 1
End With

End With