Change font to Italic
David,
I didn't understand the range you wanted to work on
cells with red fonts to italics and underline them from cell A2 through Q
so this has a line that will work for A2 - Q100 and another that will work
on the entire used range so use which you prefer.
Right click the sheet tab, view code and paste this in.
Sub Prime_Lending()
ActiveSheet.Range("A2:Q100").SpecialCells(xlCellTy peConstants,
xlTextValues).Select
'ActiveSheet.UsedRange.SpecialCells(xlCellTypeCons tants, xlTextValues).Select
For Each c In Selection
If c.Font.ColorIndex = 3 Then
With c.Font
.FontStyle = "Italic"
.Underline = xlUnderlineStyleSingle
End With
End If
Next
End Sub
Mike
"DavidH56" wrote:
Hi,
Could anyone please let me know how would I programmically to change all
cells with red fonts to italics and underline them from cell A2 through Q
with variable rows?
Thanks in advance.
--
By persisting in your path, though you forfeit the little, you gain the
great.
|