Adapt the idea in the following macro to your macro;
Sub Macro1()
Dim dt As String
'Build the criteria
dt = ">" & CStr(Date)
Columns("A:C").Select
Selection.AutoFilter
'Filter the range A1:C29 on Col C using the criteria built above
ActiveSheet.Range("$A$1:$C$29").AutoFilter Field:=3, _
Criteria1:= dt
End Sub
"LH" wrote:
> How can I use a formula in a custom filter? I have a macro that formats and
> sorts a report that I receive each day, but I want it to sort out everything
> greater than today. I have tried to use the function =NOW(), but with no
> success.
|