deselecting few items in pivot VBA

[01's]

hi....
I am in need of writing VBA code for -

• deselecting few items in a pivot
• deselecting all but one

I tried some codes like
Dim oPI As PivotItem

For Each BUitem In ActiveSheet.PivotTables("PivotTable2").PivotFields("BU")
Select Case BUitem.Name
Case "(blank)"
Case Else
oPI.Visible = False
End Select
Next BUitem
But it is not working ...any suggestions

 

[GlennUK]

"But it is not working" is not much of a clue. In what way is it not working? Does the code run but not do what you expect? Does it run partially and then crash? Or what?

 

[01's]

"But it is not working" is not much of a clue. In what way is it not working? Does the code run but not do what you expect? Does it run partially and then crash? Or what?

Hi Actually there was my mistake in above code. I changed object variable name. Now it is working fine after using consistent object name. Thanks for your concern

Cheers