hello!
I would like to have the cells colored if the cells have value. I tried to do it myself but the code is too long...is any other way to to this?
The range is b6:b200. and range O6-U200. There are some gaps, that's why I take cell by cell!
What I have so far is:
Any help is really appreciated!Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [b6] <> "" Then [b6].Interior.ColorIndex = 8 If [b6] = "" Then [b6].Interior.ColorIndex = xlNone If [b7] <> "" Then [b7].Interior.ColorIndex = 8 If [b7] = "" Then [b7].Interior.ColorIndex = xlNone If [b9] <> "" Then [b9].Interior.ColorIndex = 8 If [b9] = "" Then [b9].Interior.ColorIndex = xlNone ' ' End Sub
tim
Bookmarks