Dear Experts:

below code snippet (taken from a macro to alternately shade rows:
Courtesy by Chris Bottomley, EE) should be CHANGED to work on rows
that have NO BOLD FONT FORMATTING instead of a "IsNumeric" property.
Hope this is feasible.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas



Code snippet cut out from a macro to shade rows:

For Each rw In Selection.Rows
If IsNumeric(ThisWorkbook.Sheets(1).Cells(rw.Row, 1))
Then
For Each col In Selection.Columns
If bolRed Then
ThisWorkbook.Sheets(1).Cells(rw.Row,
col.Column).Interior.Color = RGB(239, 211, 210)
ThisWorkbook.Sheets(1).Cells(rw.Row,
col.Column).Font.Color = vbBlack
Else
ThisWorkbook.Sheets(1).Cells(rw.Row,
col.Column).Interior.Color = RGB(229, 229, 229)
ThisWorkbook.Sheets(1).Cells(rw.Row,
col.Column).Font.Color = vbBlack
End If
Next