VBA 设置条件格式

假定A列有一系列日期，想用VBA 实现条件格式，小于今天的日期变成红色，等于今天的日期变成黄色，其它不变色，用VBA语句如何实现？

Sub test()

    Range("A1").Select

    With Columns("A:A")

        .FormatConditions.Delete

        .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(A1>0,A1<TODAY())"

        .FormatConditions(1).Interior.Color = RGB(255, 0, 0)

        .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(A1>0,A1=TODAY())"

        .FormatConditions(2).Interior.Color = RGB(255, 255, 0)

    End With

End Sub