PROBLEMA CON MACRO Cells.Find "LO HE INTENTADO TODO"

[sergio_1709]

Estoy a punto de rendirme... ojala y alguien pueda ayudarme..

TENGO UNA HOJA DE CALCULO, EN LA CUAL UN BOTON ME ABRE UN FORMULARIO, EN ESTE FORMULARIO TENGO UN BOTON QUE QUIERO QUE ME REALICE LA BUSQUEDA DE UN NUMERO (FOLIO), Y DESEO QUE AL ENCONTRARLO ME DEVUELVA LA INFORMACION QUE TENGA EN LAS COLUMNAS SIGUIENTES.. TENGO ESTE CODIGO:

Private Sub CommandButton1_Click()

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell

End Sub

MEDIO FUNCIONA.. PORQUE SI ME REALIZA LA BUSQUEDA, PERO EN TODA LA HOJA.. YA INTENTE SUSTITUIR Cells.Find por [A:A].Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell

End Sub
pero me marca error y me pone amarillo todo el codigo de aqui arribita..
ojala y alguien pueda ayudarme... estoy haciendo un trabajo que necesito terminar esta semana! gracias de antemano