objener MDX de un PivotTable

Hola todos,

Estoy intentando obtener el mdx de un objeto pivotTable en una macro de
excel, tengo este codigo:
Dim strMdx As String
Dim pvtTable As PivotTable
Set pvtTable = ActiveSheet.PivotTables(1)
strMdx = LCase(pvtTable.MDX)

Pero en la ultima linea me dice que "El objeto no admite esta propiedad o
metodo".

alguien sabe como lo puedo solucionar o si existe otra forma para obtener
este MDX

Gracias por su colaboracion