Modify Search Macro to also find upper case

Just add 1 line above your code.

Option Compare Text

Sub FRHighlightStringsC()

Dim cFnd As String
Dim JI As String
Dim rng As Range
Dim xTmp As String

...
...