Filling a range, 1 [Excel macro]

sub fill_range_1
    ' See also fill_range_2

    dim rng as range
    dim itr as interior

    set rng = range("b3:e5")
    set itr = rng.interior

    itr.colorIndex = 6 ' Yellow
    itr.pattern    = xlSolid

end sub