Recorded macro's are enharently unperfect, but give this a shot
i added a few more paramaters to your conditional formating
=AND(A1>1.2,A1<40000,T(A1)="",A1<>"")"
A1>1.2 - Your goal
A1<40000 - Makes sure its not a date
T(A1)="" - Make sure its not text
A1<>="" - make sure its blank
Sub Macro3()
'
' Macro3 Macro
'
'
Cells.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(A1>1.2,A1<40000,T(A1)="",A1<>"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(A1<.8,T(A1)="",A1<>"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Bookmarks