Piccola modifica, c'era pure un errore nel taglio della stringa per il range nel caso fosse stata trovata una sola corrispondenza.
Adesso selezioni il tuo intervallo di celle, ti appare una maschera nella quale inserire ciò che devi ricercare (testo o numero) e ti vengono selezionate tutte le celle corrispondenti a tale ricerca.

codice:
Sub evidenzia()
Dim cella As Range
Dim str As String
valore = Application.InputBox("Inserisci il valore da ricercare")
For Each cella In Selection.Cells
 If cella.Value = CStr(valore) Then
    rifer = ActiveSheet.Cells(cella.Row, cella.Column).Address(False, False)
    str = str & "," & rifer
 End If
Next cella
If Len(str) > 0 Then
    If InStr(str, ",") Then
        str = Mid(str, 2, Len(str))
    End If
Range(str).Select
Else
MsgBox ("Nessun valore corrispondente al criterio")
ActiveSheet.Range("a1").Select
End If
End Sub