Buscarv con Macro

Sub BuscarCodigo()

'Definimos variables

Dim lookupvalue As Variant, value As Variant, lookupRange As Range

value = Range("A1").value 'celda con el valor buscado

Set lookupRange = Range("A10:A100") 'rango donde buscar

lookupvalue = Application.VLookup(value, lookupRange, 3, False) 'Queremos la columna 3

'Si no encuentra valor terminamos la macro

If IsError(lookupvalue) Then exit sub

'Si lo encuentra lo devuelv

Else

Msgbox lookupvalue

End If

End Sub