PivotField class error when trying to remove variable items out of a pivot chart

[gruntingmonkey]

Having an issue where I'm trying to remove a series of numbers via a loop from a pivot table but its not working when I use a variable as opposed to a direct number/letters. I get the error "Unable to get the PivotItems property of the PivotField class" on the line that starts with ".PivotItems(....."

I'm sure I've left something really simple out but can't figure it out currently.


Code that doesnt work

Sub test3()
ANum = 2226
    With Sheets("Working Out").PivotTables("PivotTable1").PivotFields("report_id")
        .PivotItems(ANum).Visible = False
    End With
End Sub

Code that does work (but only for 1 variable and I need to go through many)

Sub test3()
    With Sheets("Working Out").PivotTables("PivotTable1").PivotFields("report_id")
        .PivotItems("2226").Visible = False
    End With
End Sub

 

[gruntingmonkey]

Found my own answer!

Format as text and it will work with a variable

ANum = Format(2226, Text)

 

[smozgur]

Except, Text won't work (unless you have Text = "@" before this line) but it is supposed to be as shown below if you'd like to format a value as text by using the Format function:

ANum = Format(2226, "@")