поиск и копирование

[prosto_i]

Уважаемые форумчане,прошу помощи-туплю часа два...Задача в следующем в форму в TextBox1 заносится число, нужно найти это число на первом листе и скопировать всю строку на другой лист
Заранее спасибо

[EducatedFool]

Sub test()
    On Error Resume Next    ' на случай, если значение из текстбокса не будет найдено
    Dim ra As Range: Set ra = ActiveSheet.UsedRange
    ra.Find(Textbox1).EntireRow.Copy Worksheets(2).[a1]
End Sub

[prosto_i]

Большое спасибо