Eloise T
Active Member
The following VBA segment (in the 2nd line of code) changes the TV Model screen size between 70 and 90 inches to red and Bold and starts in Row 5, Column D. I need to also include Columns H, L, P, and T.
Thank you in advance.
Thank you in advance.
Code:
Sub REDnBOLD()
For Each cll In Range(Cells(5, "D"), Cells(Rows.Count, "D").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 = vbRed 'Red -16776961 vbRed RGB(255, 0, 0)
End With
End If
End If
End With
Next cll
Beep
End Sub