I've seen many variations but just looing for simple code, without using conditional formatting. Any suggestions to correct the following to run?
Thank you
With Range ("C3:AA27")
For Each cell In Range
If cell.Value < 0 Then
With Selection.Font
.Name = "Calibri"
.FontStyle = "Bold"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End If
Thank you
With Range ("C3:AA27")
For Each cell In Range
If cell.Value < 0 Then
With Selection.Font
.Name = "Calibri"
.FontStyle = "Bold"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End If