Just help me to make this pivot table macro DINAMIC (multiple values)

[calded]

Hi, i am new using VB for excel so i had some problems to make my programing sentences working for changing values.
Please help me to make better this sentence (takes to much time to excute) created to unselect all pivot items in a pivot table and then just select one pivot item stored in the varible X. Maybe exists some command like "PivotItems.(CeBe[All]).visible=True"

I'll appreciate any help.
Thanks in advance,
Daniel

Here is my sentences created with record macro

sub()
Dim x As String
x = Range("C10&quot.Value
With ActiveSheet.PivotTables("CeCo&quot.PivotFields("Descripción CeBe&quot
.PivotItems("(blank)&quot.Visible = True
.PivotItems("E-Business&quot.Visible = False
.PivotItems("FI&quot.Visible = False
.PivotItems("GH&quot.Visible = False
.PivotItems("Logística&quot.Visible = False
End With
ActiveSheet.PivotTables("CeCo&quot.PivotFields("Descripción CeBe&quot.PivotItems(x).Visible = True
ActiveSheet.PivotTables("CeCo&quot.PivotFields("Descripción CeBe&quot.PivotItems("(blank)&quot.Visible = False
end sub()