Переменная содержащая область ячеек

[Replicant]

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

sub FillRangeB3D7
  dim rg as range
  set rg = range("B3:D7")
  rg.interior.color = rgb(255,0,0)
  rg.value = 22
end sub

Спасибо, разобрался.