Evagrius Ponticus
Well-known Member
- Joined
- May 24, 2007
- Messages
- 1,467
Hi,
This code works once only - where did I go wrong?
This code works once only - where did I go wrong?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("X16:AQ5000")
If (Range("E7") = "" Or Range("E8") = "") Then
.Font.ColorIndex = 40
Else
.Font.ColorIndex = 1
End If
End With
End Sub