Доброго времени суток.  
 
Задумка такова:  
 
1. Установить счётчик строк на 38.  
2. Если ячейка в столбце А (строка - по счётчику) не пустая, выполнить п.3-5. Если пустая, остановить программу.  
3. Если ячейка в определённом столбце той же строки имеет значение "Оплачено", изменить цвет шрифта в ячейке столбца А той же строки. Если нет, перейти к п.4.  
4. Увеличить счётчик строк на единицу.  
5. Перейти к п.2  
 
Код:  
 
Sub Hilight ()  
Dim taskcell as Integer  
taskcell = 38  
Do Until Range("A" & taskcell).Value = ""  
If Range("A" & taskcell).Offset(0, 2 + User) = ("Оплачено") Then  
   Range("A" & taskcell).Font.ColorIndex = 16  
   Else  
   taskcell = taskcell + 1  
Loop  
End Sub  
 
При запуске выдаётся сообщение "Compile error: Loop without Do". Помогите понять ошибку.