Диапазон для Then

[DJTreeno]

Доброго времени суток!

Вопрос простой!
Есть код
If k.Text = "x1" Then k.Offset(0, -1).Font.Color = vbWhite
k.Offset(0, -2).Font.Color = vbWhite
k.Offset(0, -4).Font.Color = vbWhite
k.Offset(0, 1).Font.Color = vbWhite
k.Offset(0, 2).Font.Color = vbWhite
k.Offset(0, 3).Font.Color = vbWhite
k.Offset(0, 4).Font.Color = vbWhite
k.Offset(0, 5).Font.Color = vbWhite
k.Offset(0, 6).Font.Color = vbWhite
k.Offset(0, 7).Font.Color = vbWhite
next

Что добавить в код, чтоб выполнялся весь блок Then, а то выполняется тока k.Offset(0, -1).Font.Color = vbWhite, по условию, а остальные постоянно работают. Уже вроде немного научился програмить, но нигде не могу найти этот синтаксис.

Помогите если не трудно!

[IgorGO]

If k.Text = "x1" Then 
  k.Offset(0, -1).Font.Color = vbWhite
  k.Offset(0, -2).Font.Color = vbWhite
  k.Offset(0, -4).Font.Color = vbWhite
  k.Offset(0, 1).Font.Color = vbWhite
  k.Offset(0, 2).Font.Color = vbWhite
  k.Offset(0, 3).Font.Color = vbWhite
  k.Offset(0, 4).Font.Color = vbWhite
  k.Offset(0, 5).Font.Color = vbWhite
  k.Offset(0, 6).Font.Color = vbWhite
  k.Offset(0, 7).Font.Color = vbWhite
end if

[DJTreeno]

Фух допер, извиняюсь за флуд, End if не хватало)))

[Snekich]

Сообщение от DJTreeno

Фух допер, извиняюсь за флуд, End if не хватало)))

вместо next надо end if
и после then переход на след строку