Hi experts,

i have the following code to color a range of cells:

sub color
Dim ranga as range
Dim rangb as range
With Sheets("deelnemers")
Set DataRnga = .Range("B3", .Range("C" & Rows.Count).End(xlUp)) 'first
set of cells
Set DataRngb = .Range("E3", .Range("G" & Rows.Count).End(xlUp)) 'second
set of cells
End With
DataRnga.Interior.Color = RGB(154, 255, 154)
DataRngb.Interior.Color = RGB(154, 255, 154)
end sub

The last lines do not work.
any ideas please?
Thanks,
Pierre


--
Message posted via http://www.officekb.com