Change pivot field with a variable in VBA

[cogswel__cogs]

Hi,
I want to se a variable to switch value of pivot field. I recorded a macro and was going to incorporate it into my own code.
But I think I need to do add quotes. How do I add the quotes so the macro will not fail at line 4?


Sub Macro2()
Dim b As String

b = 1003173578

With ActiveSheet.PivotTables("PivotTable5").PivotFields("Billing Provider NPI")
.PivotItems(b).Visible = True
End With
' With ActiveSheet.PivotTables("PivotTable5").PivotFields("Billing Provider NPI")
' .PivotItems("1003173758").Visible = False
' End With
Range("I26").Select
End Sub

 

[dreid1011]

If you are setting a string variable, you put the quotes around the value.

b = "1003173578"

 

[cogswel__cogs]

that doesn't seem to work

 

[dreid1011]

that doesn't seem to work

Did the code you commented out work?

Also, I just noticed your strings are not the same:

b = "1003173578"

With ActiveSheet.PivotTables("PivotTable5").PivotFields("Billing Provider NPI")
.PivotItems(b).Visible = True
End With
' With ActiveSheet.PivotTables("PivotTable5").PivotFields("Billing Provider NPI")
' .PivotItems("1003173758").Visible = False