ooo, n how can i hide my email address like u guys? :P


wrote:
Thanks folks but i need to highlight more than 3 conditions so it's
gonna have to be code.

I've got this so far:

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "L3"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("B3:X3")) Is Nothing Then
With Target
Select Case .Value
Case "condition 1": Range("B3:X3").Interior.ColorIndex
= 15
Case "condition 2": Range("B3:X3").Interior.ColorIndex
= 35
Case "", "condition3":
Range("B3:X3").Interior.ColorIndex = 0
Case "condition 4": Range("B3:X3").Interior.ColorIndex
= 0
Case "condition 5": Range("B3:X3").Interior.ColorIndex
= 0


End Select
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

but this only works for one row. Does any one know how to modify it so
it applies to more than 1? Also, i still need to hightlight the row if
a date passes....

Harald Staff wrote:
Have a look at conditional formatting before you decide on a code solution:
http://www.contextures.com/xlCondFormat01.html

HTH. Best wishes Harald

skrev i melding
ups.com...
Hi all,

can someone help me find code for highlighting 3 conditions - entire
row interior grey - and 1 when a date is passed to highlight the font
bold red, entire row again?

Also, I need to set a reminder to appear on the first day of every
month when the workbook starts up.

Any help appreciated! :)

Doo