It still does not change color when I input the codes. Here is what I
have in my sheet code, did I miss a step?
Thank you
Private Sub Worksheet_Calculate()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Range("B7:B26")
If rng.Value = "POI" Then
rng.Interior.ColorIndex = 2
ElseIf rng.Value = "KFI" Then
rng.Interior.ColorIndex = 3
ElseIf rng.Value = "EPT" Then
rng.Interior.ColorIndex = 1
End If
Next rng
Application.ScreenUpdating = True
End Sub
--
november678x
------------------------------------------------------------------------
november678x's Profile:
http://www.excelforum.com/member.php...o&userid=23641
View this thread:
http://www.excelforum.com/showthread...hreadid=519433