Formating Subtotals

[starsky]

Hi,

I recorded the code below with aim of formating occupied subtotal cells. However, the format is applied to all the empty cells below the final grand total row. How can I restrict the format to the range I want?

Thanks.

[vba]Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(9, 13), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Range("I:I,M:M").SpecialCells(xlCellTypeVisible, xlNumbers).Interior.ColorIndex = 15
Range("I:I,M:M").SpecialCells(xlCellTypeVisible, xlNumbers).Font.Bold = True[/vba]

[lucas]

You use selection so what area did you select before running this?

[starsky]

That was part of the recorded subtotal process. You have to select at least one cell, and it then selects the entire range automatically.

[lucas]

starsky, could you possibly post your workbook.

click on go advanced and scroll down and look for a button that says manage attachments.