Supress subtotal in Pivot table using Applescript


The VB Code below will automatically remove subtotals from a pivot table report in Excel. However, I am now using Office 2008, which no longer supports VB for Excel. I have some experience of Applescript with Filemaker, but cannot figure out how/if the code below can be converted to an Applescript, that will perform the same operation in Excel. I would be very grateful if someone could tell me the equivalent Applescript for the VB code, if it can be done.



Sub NoSubtotals()
'turns off subtotals in pivot table
'.PivotFields could be changed to
'.RowFields or .ColumnFields
Dim pt As PivotTable
Dim pf As PivotField
On Error Resume Next
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.PivotFields
'First, set index 1 (Automatic) to True,
'so all other values are set to False
pf.Subtotals(1) = True
pf.Subtotals(1) = False
Next pf
Next pt

End Sub

Model: Imac
AppleScript: 2.2
Browser: Firefox
Operating System: Mac OS X (10.5)