De cualquier forma muchas gracias

De hecho el programa es más complejo que eso quiero hacer divisiones aplicar dsctos etc pero no he podido hacer eso lo único que he logrado es que me seleccione la celda pero dentro de excel con el siguiente código
Private Sub TextBox2_Change()
Sheets("hoja1").Select
[a1].Select
Cells.Find(What:=TextBox2, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:= _
False).Activate
End Sub
Espero y eso cambie tu perspectiva porque realme estoy atascado lo he hecho funcionar con exel con el siguiente código
=CONSULTAV(c9,codigo!A1:b60,2)
Gracias