[vba]

rCl.Locked = rCl.Interior.ColorIndex = lColor
[/vba]