pagefields con drillthrough

Hola a todos,
ME BAJE el CODIGO DE UNA MACRO DE LA PAGINA Extending Excel OLAP
Functionality - DRILLTHROUGH DE MICROSOFT, lA cual me permite realizar
drillthrough desde excel con una tabla dinamica(cubo de analysis services),
pero cuando aplico multi selección en los campos de pagina (pagefields) se
cae y cuando pongo depurar me lleva a esta parte del código en el editor de
visual basic.

' Loop through the visible page items.
For i = 1 To pt.PageFields.Count
' Append the item to the MDX statement.
sDrillQry = sDrillQry & "{" & pt.PageFields
(i).CurrentPageName _
& "} on " & iAxisNum & ", "
' Increment the axis dimension.
iAxisNum = iAxisNum + 1
Next I

Alguien sabe como hacer que funcione el drillthrough para selección multiple
en los campos de página??? porfa ayuda...