А никого не смутила некоторая корявость кода с использованием GoTo. Может лучше после Then и Else сразу ставить группу операторов. Или как вариант переписать код с Select Case (ИМХО так наглядней будет) :)
Да, и зачем присваивать переменной "а" значение ячейки, когда можно сразу проводить сравнение значения ячейки с некоторым условием?
1.
2.
3.
4.
5.
6.
7.
Select Case cells (i, 2 ).value
case is < 1
Группа операторов1
case Else
Группа операторов2
End Select
Это сказано не в укор автору, а для общего развития :)
С уважением, Николай.
