Buscar En Excel

[obistein]

javi, tengo este codigo de busqueda, muy simple...

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 22/05/2007 por Pstartari
'
'
Sheets("Hoja2").Select
[A.C].Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub

lo necesito es llenar datos en una Hoja, llamada Hoja1, estos datos son, "Nº de empleado" y "codigo de articulo". No siempre me acuerdo el código del articulo, entonces tengo que buscar en la hoja del stock de articulos, buscar en TODO el listado y fijarme el código del artículo para poder ponerlo en la Hoja1 y asi asignarlo al empleado. Yo necesito un "Buscador", que mientras esté ingresando los datos del Empleado-Artículo en Hoja1 y tenga alguna duda, le ponga parte del nombre del artículo (que están todos en la Hoja2) y me de las opciones de artículos...

Les pongo un ejemplo simple.
Nº Emple_Nomb.Empl_______Cod.Art._____ Articulo
12...........Pablo López...........5421...........Cuaderno de 48 hojas
15...........Silvana Ruiz...........5428...........Cuaderno de 96 hojas
18...........Alejandro Pérez......*-"justo aca no se cual es el codigo"

Entonces quiero q dentro de un "Buscador Básico" yo le ponga en un textbox
"120" y me de por ejemplo el siguiente resultado

Cod.Art.____________Articulo
5432..................Cuaderno de 120 hojas
8745..................Cassette de 120 minutos
6475..................Cinta papel 120 cm.

Espero haberme explicado. Cualquier cosa me decis...
gracias


Me explique...?

Gracias