Colorare risultato trova

Sub Trova_Colora()
    Dim TrovaVoce As String
    Dim Rng As Range
    Cells.Interior.ColorIndex = xlNone
    TrovaVoce = InputBox("Inserisci il valore")
    If Trim(TrovaVoce) <> "" Then
        With Sheets("Foglio1").Range("A:A") <=== Da modificare con il tuo range
            Set Rng = .Find(What:=TrovaVoce, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                Rng.Interior.ColorIndex = 6
            Else
                MsgBox "Voce non trovata"
            End If
        End With
    End If
End Sub