P
Patrick Simonds
This is the code I use to color a cell based on text in the cell:
If Not Intersect(Target, Range("A5:G56")) Is Nothing Then
Select Case Left(Target.Text, 4)
Case Is = "Sick"
icolor = 38
End Select
How can I also get it to color the 2 cells immediately above it?
If Not Intersect(Target, Range("A5:G56")) Is Nothing Then
Select Case Left(Target.Text, 4)
Case Is = "Sick"
icolor = 38
End Select
How can I also get it to color the 2 cells immediately above it?