SoloCodigo

Mi caso es el siguiente, dentro  de excel tengo una tabla con datos y he insertado un boton y una caja de texto para que me busque lo que hay escrito en la caja de texto y me escriba todos los que encuentre en otra hoja, el problema es que solo me encuentra el primero y cuando busque los siguientes sigue devolviendome el primer resultado. El codigo que uso en el "Editor de Visual 6.3 en Excel" es el siguiente aunque ya le he hecho un monton de modificaciones y ninguna me vale. Espero que alguien me pueda decir el fallo que estoy cometiendo. Gracias

Public Sub CommandButton1_Click()

Dim Texto As String
Dim Contador As Integer

Texto = TextBox1.Text
Contador = 1

If Worksheets("hoja1").Cells.Find(Texto) Is Nothing Then

    Worksheets("hoja2").Range("a1") = "NO ENCONTRADO"
    TextBox1.Activate
Else
   
    Worksheets("hoja1").Cells.Find(Texto).Copy
    ActiveSheet.Paste Destination:=Worksheets("hoja2").Cells(Contador, 1)

    While Contador <= 10
        Sheets("Hoja1").Select
        Worksheets("hoja1").Cells.FindNext.Copy
        ActiveSheet.Paste Destination:=Worksheets("hoja2").Cells(Contador, 1)
        Contador = Contador + 1
    Wend

End If
End Sub