It still does not change color when I input the codes. Here is what I
have in my sheet code, did I miss something?

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