How to filter calculated field in pivot tabl

I have a calculated field(Sum_of_FICA_OOB) that is auto-filtered added to a pivot table. I need to show ONLY values >1 and <-1. I can't figure out the code to get that filter to only show those values. I had a similar piece of code I used to filer a Pivot Table Item in a similar fashion, but I can't modify it to work with the calculated Field

Here is the code I used to filter the Pivot table Item that did work that I was trying to modify

 Dim LocnPivItm As PivotItem
  For Each LocnPivItm In ActiveSheet.PivotTables("FUTA_Max_PT").PivotFields("WT").PivotItems   'filter pivot Field "WT" to show only/ 401'
      Select Case LocnPivItm
          'Case "A", "B" use for multiple selections
          Case "/410" 'use for singular selections'
          Case Else
              LocnPivItm.Visible = False
      End Select
  Next LocnPivItm

Can anyone provide a modified code to filter the calculated field I added(Sum_of_FICA_OOB) to show only values <1 and >-1?

Thanks,

Craig