VBA Format Cell Range Based

[ststern45]

Hello everyone,

I have a set of numbers in cell range A1 through A11

I would like to format any number that matches the value in cell C1

The following code works but I wanted to ask if the code can be converted to RGB?

.ColorIndex = 6

Sub ColorCellsTest2()
Dim wS As Worksheet
Dim TdCel As Range, FCell As Range, CellVal As String
Set wS = ThisWorkbook.Sheets("Sheet1")
Set TdCel = wS.Range("A1:A11")

For Each FCell In TdCel
With FCell
CellVal = LCase(.Value)
With .Interior
Select Case True
Case CellVal = Range("C1")
.ColorIndex = 6

Case Else
.Pattern = xlNone
End Select
End With '.Interior
End With 'FCell
Next FCell
End Sub

 

[Joe4]

Is there some reason you cannot just use Conditional Formatting instead?
No VBA required, and it is dynamic (automatic).

 

[ststern45]

I have additional code where I just want to format a specific range of cells. Used for back testing.

 

[Joe4]

I have additional code where I just want to format a specific range of cells.

That's fine, but there isn't any reason why you cannot use both Conditional Formatting and VBA in the same sheet.
The advantage to using Conditional Formatting is that if the data changes, you don't need to re-run your code; the cells will be updated automatically.
Also note that you can use VBA to apply the Conditional Formatting, if you like (much more efficient than using loops).
To get that code, simply turn on the VBA Recorder, and record yourself applying the Conditional Formatting manually.