How to get expression's label in pivot table using macro?

[#1]

Cos i need to enable or disable some expression depends on it's title.

Thanks a lot.

[#2]

Sub Dims
 set cht=ActiveDocument.GetSheetObject("CH01")

 set Prop = cht.GetProperties
 set dimz = Prop.Dimension ActiveDocument.Variables("vDim1").SetContent dimz.Item(0).Title.v,true
 ActiveDocument.Variables("vDim2").SetContent dimz.Item(1).Title.v,true
 ActiveDocument.Variables("vDim3").SetContent dimz.Item(2).Title.v,true
End Sub
try something like this for expressions.