I have the following code so far that someone else wrote. It is on the right track, I think, but I am too in-experienced in VBA to troubleshoot it. The code will only work if I re-confirm the formulas in Rng1(E5:BD103). How can I make it or my worksheet automatic?
FYI: There will be about 9 more cases of names and formats besides "Luis"
[VBA] Option Compare Text 'A=a, B=b, ... Z=z
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng1 As Range, iCol As Long, fCol
Set Rng1 = Intersect(Range("E5:BD103"), Target)
If (Rng1 Is Nothing) Or (Target.Count <> 1) Then Exit Sub
Select Case Target.Value
Case vbNullString
iCol = 0
fCol = 0
Case "Luis"
iCol = 3
fCol = 8
Case Else
iCol = 10
fCol = 10
End Select
Target.Interior.ColorIndex = iCol
Target.Font.ColorIndex = fCol
End Sub[/VBA]