"if" was commented by mistake .

remove the comment
try this

Sub ContractHighlight()
'
' ContractHighlight Macro
' Macro recorded 23/11/2004 by Keith Holden
'

If h4 1 Then
Range("A4:M4").Select
Selection.Interior.ColorIndex = 3

ElseIf i4 1 Then
Range("A4:M4").Select
Selection.Interior.ColorIndex = 2

End If
End Su

--
anilsolipura
-----------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...fo&userid=1627
View this thread: http://www.excelforum.com/showthread.php?threadid=31985