ActiveSheet.Unprotect Password = "ABCD"
Range("B9").Locked = True
Range("B9").Interior.ColorIndex = 15
ActiveSheet.Protect Password = "ABCD"


You can do multiple cells at once

Range("B9:B20,C15,J31:J35").Locked = True
Range("B9:B20,C15,J31:J35").Interior.ColorIndex = 15


--
Regards,
Tom Ogilvy


Consuelo wrote in message
...
Hello,
I am getting familiar with excel vba and I would like to
know how can I programmatically disable/gray out a cell
once I have entered data in it?

I have tried using lock and deactivate and I could not
get it to work.

Thanks.
Consuelo :-)