Filtering in pivot need help with deselecting in report filter

[999HelpPlease]

This is my current program:

ActiveSheet.PivotTables("Prosthetics").PivotFields( _
"Otto Bock Strategic Business Segment B").CurrentPage = "(All)"
With ActiveSheet.PivotTables("Prosthetics").PivotFields( _
"Otto Bock Strategic Business Segment B")
.PivotItems("SBS_B_63").Visible = False
.PivotItems("SBS_B_64").Visible = False
End With
ActiveSheet.PivotTables("Prosthetics").PivotFields( _
"Otto Bock Strategic Business Segment B").EnableMultiplePageItems = True
ActiveSheet.PivotTables("Prosthetics").PivotFields("Header Groups"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Prosthetics").PivotFields("Header Groups")
.PivotItems("SE_03").Visible = False
.PivotItems("SE_09").Visible = False
.PivotItems("SE_16").Visible = False
.PivotItems("SE_17").Visible = False
End With
ActiveSheet.PivotTables("PivotTable4").PivotFields("Header Groups"). _
EnableMultiplePageItems = True
End Sub

When I run it I get a Run_time erro '1004': Unable to get the PivotTables property of the Worksheet class.

What I want to do is select all my options so I can deselect some specific groups that I don't want added into my pivot.

What step am I missing?