Quote Originally Posted by JimmyTheHand
Bob, this one is very pretty

One thing to add, though. It didn't worked for me until I realized that in this part of the code
[vba].FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"[/vba] the expression "TRUE" must be replaced with the local word that corresponds to TRUE. In Hungarian Excel, it looks like this:
[vba].FormatConditions.Add Type:=xlExpression, Formula1:="IGAZ"[/vba] I'm not sure what language is used in Alderney, but for others, this may be of help.

Jimmy
Wasn't aware of this Jimmy. When you add a formula to a cell in VBA, you always use English for the functions, but I guess not for the booleans.

Can you try this for me

[vba]

ActiveCell.FormulaR1C1 = "=IF(A1=17,TRUE,FALSE)"
[/vba]

I know it is a rfubbish formula, but how does it map in your Excel?