[excle] subtotali evidenziati

[panipani]

esiste la possibilità di evidenziare in qualche maniera tutta la riga che riporta i totali e in particolare il risultato della somma, quando si utilizza la funzione dei subtotali automatici in excel?

grazie

p

[nicola75ss]

Sub colora_subtotali()
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveSheet.UsedRange.Select
Selection.SpecialCells(xlCellTypeVisible).Select
With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
End With
End Sub