Buscar Valor en una lista VBA Excel Macro - WorksheetFunction

'Mediante la siguiente macro puede hallar un valor parámetro en una lista de datos
'adicionalmente podría mejorarla personalizar la macro y pintar cada coincidencia de un color 'diferente

Sub TestYisus()

'Dim LastRow As Long
'get last row used
'LastRow = Range("C1").End(xlDown).Row


'Buscar Valor en na lista VBA Excel Macro
Dim RangoLista As Range, CeldaParametro As Range

Set RangoLista = Range("B2:B5")

Set CeldaParametro = Range("C2")

If Application.WorksheetFunction.CountIf(RangoLista, CeldaParametro) > 0 Then
    MsgBox "Se encontro el parametro " & CeldaParametro.Value & ", Direccion: " & CeldaParametro.Address(False, False) & " en la lista " & RangoLista.Address(False, False)
Else
    MsgBox "Valor no encontrado"
End If

End Sub