Sub Macro1()
Range("D1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=14/07/07", Operator:=xlAnd
End Sub
Sub XMacro1()
Dim X
X = "14/07/07"
Range("D1").AutoFilter Field:=1, Criteria1:="=" & X, Operator:=xlAnd
End Sub
Sub XMacro2()
Dim X
X = "14/07/07"
Range("D1").AutoFilter 1, "=" & X, xlAnd
End Sub
Sub XMacro3()
Dim X
X = Format(Date, "dd/mm/yy")
Range("D1").AutoFilter 1, "=" & X, xlAnd
End Sub