Tengo un problema, estoy creando una macro en Visual Basic 6.0 para una tabla dinamica de Exel 2000. y necesito saber el tope maximo de un campo de la tabla dinamica asi:

la tabla dinamica me muestra valores por lapso y a medida que la voy actualizando me incrementa los meses, quiero saber hasta que mes tengo actualizado. El codigo es el siguiente:


With ActiveSheet.PivotTables("Tabla dinámica").PivotFields("Lapso")
For j = 1 To 10
.PivotItems(j).Visible = False
Next j
End With

tengo los lapsos 1,2,3,4,5,6,7,8 y a medida que la actualizo se incrementa el lapso copmo puedo saber cuantos lapsos tengo para poder recorrer todos sin modificar manualmente el programa, si llega a evaluar el mes 9 se revienta.
gracias espero puedan ayudarme

__________________
Oscar La Rota Maldonado
Ing. de Sistemas