rivate Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Row1 = Range("C" & Rows.Count).End(xlUp).Row
Set MR = Range("C2:C" & Row1)
For Each cell In MR
If Not cell.Value = IsText Then cell.Offset(0, 1).Interior.ColorIndex = 10
If Not cell.Value = IsText Then cell.Offset(0, 2).Interior.ColorIndex = 9
If cell.Value = "" Then cell.Offset(0, 2).Interior.ColorIndex = 0
If cell.Value = "" Then cell.Offset(0, 1).Interior.ColorIndex = 0
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
This is the main code I'm using
Thanks,
guyinahatgames
Bookmarks