Поиск значения по столбцу

[panuta]

Уважаемые программисты, помогите, пожалуйста.
Нужно осуществить поиск значения по столбцу, чтобы при каждом нажатии на кнопку поиск продолжался.
Например столбец:
1
2
1
3
3
1
Мы вводим вTextBox значение 1. Мне нужно чтобы при нажатии на кнопку находилось значение 1 и ячейка выделялась, при следующем нажатии на кнопку находилось следующая 1 и т.д..
Написала такой код в автоматическом режиме:
Cells.Find(What:=TextBox1.Text).Act ivate
Cells.FindNext(After:=ActiveCell).A ctivate
Но он находит только первую единицу и не продолжает поиск.
Что делать?

[EducatedFool]

А что, ответы в своих темах не читаете?

Там же предложили готовое решение:

Private Sub CommandButton1_Click()
    Cells.Find(Me.TextBox1, ActiveCell).Activate
End Sub

Ну а если вам лень создать пример, и проверить предложенный код, - то вот вам готовый пример:

[panuta]

А у меня не получалось))) Сейчас всё сработало))) Спасибо Вам огромное!!!!

[panuta]

Только, если не трудно, подскажите, пожалуйста, что значит Ме???

[Hugo121]

Как с английским? Перевод - "мне", соотв. это "моё" - в данном случае формы.
Me.TextBox1 - мой текстбокс!

[panuta]

Спасибо!