Hiding grand total column in a pivot table using VBA/Macro

Hi,

I have the following code to create a pivot table. I want to hide the grand total for rows in the pivot. Can somebody please help m with the code?

Sub Pivot()
ActiveWorkbook.Sheets("HW - FY11Actuals").Select
    Range("A1").Select
    
    ' Create the PivotTable object based on the Employee data on Sheet1.
    Set objTable = Sheet1.PivotTableWizard
    
    ' Specify row and column fields.
    Set objField = objTable.PivotFields("Product Family")
    objField.Orientation = xlRowField
    Set objField = objTable.PivotFields("Fiscal Period ID")
    objField.Orientation = xlColumnField
    
    ' Specify a data field with its summary
    ' function and format.
    Set objField = objTable.PivotFields("Cisco Bookings Net")
    objField.Orientation = xlDataField
    objField.Function = xlSum
    objField.NumberFormat = "#,##.##"
    
          
End Sub

Thanks