Sub HighlightSearch()

  Dim rng As Range, c As Variant, SearchString As String

    SearchString = InputBox("Search the used range for?")
    If SearchString = "" Then End
    Set rng = ActiveSheet.UsedRange
  
    For Each c In rng
      If InStr(1, UCase(c.Value), UCase(SearchString)) Then
        c.Interior.ColorIndex = 6 'highlights yellow
      End If
      If UCase(c.Value) = UCase(SearchString) Then
        c.Interior.ColorIndex = 45 'highlights orange
      End If
    Next c

End Sub