You can only have 3 conditional formats.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Jan Hammel" wrote in message
...
Hi

I'm new to VBA programming and am attempting to add a 4th conditional
format by editing a recorded macro and am receiving this error message.

Here is my code:

Sub Conditional_Formatting()
'
' Conditional_Formatting Macro
' Macro recorded 4/26/2007 by Jhammel
'
' Keyboard Shortcut: Ctrl+j
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Materials"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 36
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Turnkey"""""""
Selection.FormatConditions(2).Interior.ColorIndex = 34
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Labor"""""""
Selection.FormatConditions(3).Interior.ColorIndex = 33
Range("E2").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
<---------LINE GENERATING ERROR
Formula1:="=""""""None"""""""
Selection.FormatConditions(4).Interior.ColorIndex = 35
Range("E2").Select
End Sub


Any help would be appreciated.

Thanks
Jan Hammel