Sub test()
With Range("A2")
'Add CF rule
.FormatConditions.Add Type:=xlExpression, Formula1:="=A1>1"
'Modify the rule's behavior
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255 'Red pattern
.TintAndShade = 0
End With
'Delete CF rule
.FormatConditions.Delete
End Sub