Find And Highlight Text ...

Each cell in Range AL3..AL50000 have text (sentence - description of problem).

Cell AL1 has my search word (i.e. loose)

I would like to search range AL3..AL5000 for word "Loose" - if found highlight every cell where was found - Yellow.

If AL1 is empty - remove all highlights.

Here is what I have so far (patches of codes found in this forum)


Sub FindTextInCell()

Dim ws As Worksheet
Dim myText As String

myText = Sheets("detail_report").Range("AL1").Value

If myText = "" Then Exit Sub

Set Found = Range("AK2..AK56000").Find(What:=myText, LookIn:=xlValues, lookAt:=xlPart, MatchCase:=False)

If Not Found Is Nothing Then

Found.Interior.ColorIndex = 36

End If
End Sub

My code highlights only first found cell and if I type any other search word - highlight from the 1st search does not get removed.