I keep getting an error on this even tho its does actually do what out errors out on. the red bit is the error part. Its a very simple pivot really, if anyone has a clue pls tell me. THANKING YOU!!!


Sheets("Tables ").Select

ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Application.DisplayAlerts = False
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Exchange")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Booking method")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Fee ")
.Orientation = xlColumnField
.Position = 1
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("# of Rooms "), "Sum of # of Rooms ", xlSum
End Sub


Pivotpic.JPG