Place this code In a standard module: 
 
Option Explicit 
 'this line makes it cap insensitive in your string selection
Option Compare Text 
 
Sub Check_Values_1() 
    On Error Resume Next 
     
    Dim CurCell As Range 
    Dim Heading As String 
    Dim Prompt As String 
    Dim Criteria As Variant 
    Dim Color As Long 
     
     
    Dim lRows As Long 
    Dim lCols As Long 
    Dim lAllCells As Long 
     
    lRows = ActiveSheet.Rows.Count 
    lCols = ActiveSheet.Columns.Count 
    lAllCells = lRows * lCols 
     
     '   Ensure that that the entire sheet was not selected
     '   This would slow the loop down considerably
    If Selection.Cells.Count = lAllCells Then 
        MsgBox "To check the entire sheet, please select only one cell", 64 
        Exit Sub 
    End If 
     
     
     ' Optional User Config
    Heading = "Enter Criteria" 
    Prompt = "Enter the value you want to find and highlight." 
    Color = 6 
     
     ' Get the value of the cell to highlight
    Criteria = InputBox(Prompt, Heading) 
     
     ' Inspect the value to determine type or exit
    If Criteria = "" Then 
        Exit Sub 
    ElseIf IsNumeric(Criteria) Then 
        Criteria = CLng(Criteria) 
    ElseIf IsDate(Criteria) Then 
        Criteria = CDate(Criteria) 
    Else 
        Criteria = CStr(Criteria) 
    End If 
     
     ' Loop through each cell in the selection and color
     ' as desired
    If Selection.Cells.Count > 1 Then 
        For Each CurCell In Selection 
            If CurCell.Value = Criteria Then CurCell.Interior.ColorIndex = Color 
        Next CurCell 
    Else 
        For Each CurCell In ActiveSheet.UsedRange 
             'If you don't make a selection, it checks all cells on the sheet with values
            If CurCell.Value = Criteria Then CurCell.Interior.ColorIndex = Color 
        Next CurCell 
    End If 
End Sub