HELP --- 1004 Application-defined or object-defined erro

[Jan Hammel]

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

 

[Bob Phillips]

You can only have 3 conditional formats.

--
---
HTH

Bob

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

 

[tbone]

Built-in conditional formatting only supports up to 3 levels.

For more than that, try searching the web. There are ways to get
around it (I've not needed them yet, so I don't rememeber how but I
remember seeing them).

tbone

 

[Vergel Adriano]

Jan,

Unfortunately, Excel allows you only up to 3 conditions for each conditional
format..
I have XL2003.. not sure if this has changed in XL2007.