Modify Search Macro to also find upper case

Hi All

I use the below macro which works extremely well (where the variable cFnd is set to a cell with my search criteria)... is there any way to modify it to also find words where the first letter is capitalised (or ignore letter case altogether)

i.e. now if I search "hello" it will not highlight text with "Hello" - I would like it to highlight both "hello" and "Hello"

At the moment I have to run it twice with the cFnd variable modified... but that makes it very slow !

y = Len(cFnd)
For Each rng In Selection
  With rng
    m = UBound(Split(rng.Value, cFnd))
    If m > 0 Then
      xTmp = ""
      For x = 0 To m - 1
        xTmp = xTmp & Split(rng.Value, cFnd)(x)
        .Characters(start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
        .Characters(start:=Len(xTmp) + 1, Length:=y).Font.Bold = True
        xTmp = xTmp & cFnd
      Next
    End If
  End With
Next rng

Any help gratefully received !

Best
James

Thanks for the quick response Richard, that's very kind.

Maybe I am not not correctly understanding, but my constraint is that unfortunately, I'm not able to change the formatting of the text I am searching... so whilst I can run the macro twice (searching for "hello" once and "Hello" the second time), what I cant do is change the text being searched to always be "hello"...

Hi Richard

Thanks - I had a feeling I might have misunderstood your suggestion - though I confess Im still struggling to understand the code modification I need to do.

As per your suggestion, attached a sample of the sheet (forgive the random data Ive put in from Pride & Prejudice!)

If you try searching for "Long" or "long", you will see that only the "long"s get highlighted !

Thanks again for your help

James

Thanks so much millz & jindon - I tested both these solutions, and both work really well !

Very much appreciated for your help!

Best
James

Split Function

For Each rng In Selection
  With rng
    m = UBound(Split(rng.Value, cFnd, , 1))
    If m > 0 Then
      xTmp = ""
      For x = 0 To m - 1
        xTmp = xTmp & Split(rng.Value, cFnd, , 1)(x)
        .Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
        .Characters(Start:=Len(xTmp) + 1, Length:=y).Font.Bold = True
        xTmp = xTmp & cFnd
      Next
    End If
  End With
Next rng