Summary Property Example

This example formats row four on Sheet1 as bold and italic if it’s an outlining summary column.

With Worksheets("Sheet1").Rows(4)
    If .Summary = True Then
        .Font.Bold = True
        .Font.Italic = True
    End If
End With