Conditional Formatting in VBA

[SiGill]

I have this code which isn't working. Could someone give me some pointers?

.Application.Cells.Select
.Application.Selection.FormatConditions.Delete
.Application.Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="549"
.Application.Selection.FormatConditions(1).Interior.ColorIndex = 3

I am trying to get access to tell excel that any cell that has 549 in it colour red.