Программа выдает ошибку "Next without For".
Как ее устранить?
Проблема с If...Then - эта конструкция у вас сделана неправильно.
У вас две конструкции If...Then, у первой конструкции нет End If. Добавьте End If для первой конструкции.
Спасибо за помощь!