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

[sergio_1709]

CREO QUE OMITI PARTE DE MI CODIGO... Y QUIZAS AHI ES DONDE TENGO EL ERROR... LO COPIO NUEVAMENTE ESTA VEZ COMPLETO... :
Private Sub CommandButton1_Click()

[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
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell

On Error GoTo noencontro


End Sub

al ejecutar la macro me manda el error "no se ha definido la etiqueta" y me selecciona azul On Error GoTo noencontro y en amarillo Private Sub CommandButton1_Click(),
supongo que debo desesperar... soy demasiado inexperto y estoy queriendo jugar al programaddor.. pero quisiera intentarlo antes de renunciar y buscar a alguien que lo haga por mi... gracias de antemano.