Hi All............

Here's a piece of code someone on the group was kind enough to do for me and
it works fine. What I would like to know now, is , can it be modified to
also change the Font in that entire row that it finds the string "total" in,
to BOLD? Reason being that the Subtotal titles come out bold by virtue of
the "subtotal function", but the subtotals themselves do not and I would
like them to be bold also.....everything in that row.


Sub AddRowSubTotalsBoth()
'Adds blank rows to the Sub-totaled sheet for easier reading

lastrow = Range("A" & Rows.Count).End(xlUp).Row
For r = lastrow To 8 Step -1
If InStr(1, Cells(r, 3).Value, "Total") 0 Or _
InStr(1, Cells(r, 8).Value, "Total") 0 Then
ActiveSheet.Rows(r + 1).EntireRow.Insert

End If
Next
End Sub


TIA,
Vaya con Dios,
Chuck, CABGx3