MEGA URGENTE

Pues entonces tendrás que confirmar (o rectificar) lo que desde aquí intentamos suponer:
¿La hoja con la tabla se llama "Hoja1"?
¿El rango con los nombres y códigos es A:B?
El texto a escribir debe ser tal como lo tienes en tu tabla (lo busca exacto). Y en el ejemplo que expones hay palabras
separadas por un espacio y otras por dos espacios <<< ¡OJO!

Cambia el código que te ofrecí, por este otro:
Sub BuscaRegistro()
Dim varbus2 As String
Dim fila As Long
On Error Resume Next
varbus2 = InputBox("Escribe el texto a buscar", "May ""La Bruja""")
If varbus2 = "" Then Exit Sub ' si Cancela o no escribe texto: termina.
'busca en columna A.
fila = Worksheets("Hoja1").Range("A2:B1000").Find(varbus2).Row
If fila = 0 Then ' Si no existe el dato.
MsgBox " ¡ Dato no encontrado ! ", vbCritical, "May ""La Bruja"""
Else ' si el dato existe.
MsgBox "Dato encontrado en la fila " & fila & vbCr & _
Worksheets("Hoja1").Cells(fila, 1).Value & vbCr & _
Worksheets("Hoja1").Cells(fila, 2).Value & vbCr & _
Worksheets("Hoja1").Cells(fila, 3).Value, , "May ""La Bruja"""
End If
End Sub

Saludos: Antonio.
*****************************
"Bruja" escribió en el mensaje
news:
> Antonio,
>
> Gracias por tu respuesta, pero siempre me dice que no encontró el dato y
> como no le entiendo al código no sé como arreglar si hubiera algún error,
> jaja.
> Gracias de todas formas y espero que me puedan ayudar.
> Por cierto necesito que sea macro por eso lo hago en una macro
>
> "Bruja" escribió:
>
>> Hola Todos,
>>
>> Por fa me mega urge saber dos cosas
>>
>> 1. Mi Excel esté en español y mi VB en inglés y estoy utilizando
>> aplicaciones de fórmulas (application.suma) pero no me sé el nombre de las
>> fórmulas en inglés. Alguien sabe como le puedo hacer para saber el nombre de
>> las fórmulas??
>> 2. Como puedo hacer una búsqueda de una palabra (cadena de caracteres) en
>> una macro, lo traté de hacer así y no pasa nada:
>> For Each celda In Range("B3:B300")
>> If celda = varbus2 Then
>> varbus1 = varbus2
>> Else
>> varbus1 = ""
>> n = n + 1
>> End If
>> Next celda
>> varbus2 es la cadena que introduce el usuario, por fa me mega urge
>> espero me puedan ayuda
>> GRACIAS
>> Saludos,
>>