Опять VBA :(

[seajey]

И снова меня мучает Visual Basic :(

Есть столбец D, в его ячейках может быть записаны числа 0, 1, 2 или вообще ничего.
Нужно обойти его в цикле, и, если i-тая ячейка содержит цифру 1 - закрасить строку диапазоне Bi:BAi определенным цветом.

Пока из обрывков разных макросов удалось сваять это:

Sub ColorLoneCityRow()
'
 Dim i As Integer
 i = 8

 While Range("D" + CStr(i)).Text <> "***"
	Select Case Range("D" + CStr(i)).Value
		Case 1
		
			Range("B" + CStr(i) + ":BA" + CStr(i)).Select
			With Selection.Interior
				.ColorIndex = 44
				.Pattern = xlSolid
			End With
	End Select
	i = i + 1
 Wend

End Sub

И, о Боже! Оно даже работает!