Formatting subtotal row

[exceluseratcci]

When I subtotal, the results in the column specified as "at each change in" are bolded, but nothing else on the subtotal row is bolded. Is there a way to make each subtotal row bold? I need to clarify: I would like for the bolding to be done at the same time the spreadsheet is subtotaling, since there are 200+ subtotal lines and I don't want to have to go through the spreadsheet line by line and add the bolding manually.

 

[BrianB]

Try this :-

'=============================================================================
'- CHECK EACH CELL IN USED RANGE FOR "SUBTOTAL" IN FORMULA AND MAKE BOLD FONT
'=============================================================================
Sub SUBTOTALS_BOLD()
    Application.Calculation = xlCalculationManual
    For Each c In ActiveSheet.UsedRange
        If InStr(1, c.Formula, "SUBTOTAL", vbTextCompare) > 0 Then
            c.Font.Bold = True
        End If
    Next
    MsgBox ("Done")
End Sub
'=============================================================================

 

[Tom Urtis]

This would do it without looping or conditional If's:

Sub SubtotalFormats()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Dim LastRow&, FilterRange As Range
LastRow = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set FilterRange = Range("A1:A" & LastRow)
FilterRange.AutoFilter Field:=1, Criteria1:="=*Total"
With FilterRange.Offset(1)
.Resize(.Rows.Count - 1, Range("A1").CurrentRegion.Columns.Count).SpecialCells(12).Font.Bold = True
End With
Set FilterRange = Nothing
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub