Qué se pueda visualizar fácilmente los Subtotales?

Prueba con las siguientes instrucciones, aunque quizás tengas que modificarlas si el número de "niveles" no es 3

With ActiveSheet
.Outline.ShowLevels rowlevels:=2 'Establecer como nivel de visualización el 2 (los subtotales)
.UsedRange.SpecialCells(xlCellTypeVisible).Font.Bold = True 'Aplicar negrita a las celdas visibles del rango usado en la hoja
.Outline.ShowLevels rowlevels:=3 'Restablecer como nivel de visualización el 3 (el detalle)
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel


"anonymous" escribió en el mensaje news:a23501c3ec05$4fe141e0$
Utilizo la función Range.Subtotal desde código VBA para
calcular SUBTOTALES
Ej: rango.Subtotal subtotales(i), xlSum, arraySumas, True,
False, xlSummaryBelow

El problema es que quiero que me coloree las filas en la
que pone los subtotales o aunque sea que todos los valores
de las filas de subtotales me los ponga en negrita. (cosa
de rápidamente visuallizar cuales son los subtotales)
Cómo puedo hacer esto????