прервать цикл

[MaDW]

Имеется такой код:

Sub temp()Range("А1").SelectDo While Not ActiveCell = "1"	ActiveCell.Offset(0, 1).SelectLoopEnd Sub

Естественно если в строке "А" не встречается значение 1, то активная ячейка смещается до конца листа и макрос выдает ошибку 1004

Как превать выполнения макроса когда он будет проверять, например строку "Z1" ?

[yuriks]

Sub temp()

Range("A1").Select

Do While Not ActiveCell = "1"

ActiveCell.Offset(0, 1).Select

If ActiveCell.Address = "$Z$1" Then Exit Do

Loop

End Sub

[MaDW]

Неа... :)

Результат тот же

Пардон, работает.

Сенкс.