find and highlight searched data

May be this will help you

Sub FindAndColour()
    Dim strSearch As String
    strSearch = "Value1"
    Dim rngSearch As Range
    Set rngSearch = Range(Sheets("Sheet1").Cells(2, 2), Sheets("Sheet1").Cells(15, 5))
    
    Dim i As Double
    Dim j As Double
    
    For i = 1 To rngSearch.Rows.Count
        For j = 1 To rngSearch.Columns.Count
            If rngSearch.Cells(i, j).Value = strSearch Then
                rngSearch.Cells(i, j).EntireRow.Interior.ColorIndex = 3 ' coloured in red
                MsgBox "Value found"
                Exit Sub
            End If
        Next
    Next
End Sub