Выделение ячеек

[ZHDN]

Подскажите макрос.
Дапустим есть область данных А1:В30 необходимо в этой области данных найти все ячейки в которых значение больще 4 и выделить их дапстим красным цветом.

[mchip]

Это можно сделать и без макроса. Условное форматирование и все.

[19vitek]

Sub n()
Dim cel As Range
For Each cel In [a1..b30]
 cel.Value = Int(Rnd * 10) + 1
Next
For Each cel In [a1..b30]
If cel.Value > 4 Then cel.Interior.Color = RGB(0, 0, 255)
Next
End Sub

[ZHDN]

спасибо большое

[Serge_Bliznykov]

так пойдёт?

Sub SelectBig4()
  For Each c In Range("A1:B30")
    If c > 4 Then c.Interior.ColorIndex = 3
  Next
End Sub