VBA replace and highlight |VBA & Macros|Excel Forum|My Online Training Hub

I dont think you can use the find/replace in that way as it only finds and replaces.

Pretty sure you will need to test each cell and then colour it in

This should would work

Sub find_replace1()

Dim r As Range
Dim C As Range

Set r = Range("C2:AG126")

For Each C In r
Debug.Print C.Address

If C.Value = "s" Then
C.Value = "Hey"
C.Interior.Color = vbYellow
End If
Next C

End Sub