Command button vba code

This turned out to be a fun little task that I never expected to do haha. Try this macro out:

Sub highlight_values()
' TeachExcel's Mr. Don haha ;)

Dim foundRange As Range
Dim searchRange As Range
Dim firstAddress

' Range in which to search
Set searchRange = ActiveSheet.Range("A1:C3")

' String to search for
strSearch = "A"

With searchRange

    Set foundRange = .Cells.Find(What:=strSearch, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlRows, SearchDirection:=xlNext, MatchCase:=False)

    If Not foundRange Is Nothing Then

        firstAddress = foundRange.Address

        Do

            ' Yellow background
            foundRange.Interior.Color = 65535

            Set foundRange = .FindNext(foundRange)

        Loop While Not foundRange Is Nothing And foundRange.Address <> firstAddress

    End If

 End With

' Wait 5 seconds
Application.Wait (Now + TimeValue("0:00:05"))

'No background
searchRange.Interior.Color = xlNone

End Sub

The comments in the code should explain everything but let me know if you have any questions. Also, as it is, the search is NOT case sensitive.

I based this macro off of this one: Macro to Find All text or values in the workbook