Sub Macro1()
'
' Macro1 Macro
'
'
Range("G3").Select
Cells.FormatConditions.Delete
Range("G3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=K15<=TODAY()"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub