Eloise T
Active Member
Cell G13 should have the "70" of the data in bold red font like the 6 cells above it.
The macro REDnBOLD is responsible for accomplishing that, but it doesn't comply without a "prefix" in front of the "70". How do I tweak the macro so the "70" will be 70?
The macro REDnBOLD is responsible for accomplishing that, but it doesn't comply without a "prefix" in front of the "70". How do I tweak the macro so the "70" will be 70?
Code:
Sub REDnBOLD()
' This VBA segment changes the TV Model screen size between 70 and 90 inches to red and Bold and starts in Row 5, Column C.
For Each cll In Range(Cells(6, "G"), Cells(Rows.Count, "G").End(xlUp)).Cells
With cll
x = Evaluate("MIN(IFERROR(FIND(ROW(10:99)," & .Address(0, 0, , 1) & "),""""))")
If x > 0 Then
y = CLng(Mid(cll.Value, x, 2))
If y >= 70 And y <= 90 Then
With .Characters(Start:=x, Length:=2).Font
.FontStyle = "Bold"
.Color = -16776961 'Red
End With
End If
End If
End With
Next cll
End Sub