I have a table that is imported to excel from the internet. I need to filter the due date column (column 7) by todays date up to 10 days out and I would like to save as an xlsm doc that will vary in its file name each time it is saved to the given folder. Any help would be appreciated
Sub Dater()
Dim Sh As Worksheet
Set Sh = Worksheets("Pending Approval by Responsible")
With Sh.Range("A3").CurrentRegion
Range("A3").Select
Selection.AutoFilter
.AutoFilter Field:=7, Criteria1:=">=" & CLng(Date), Operator:=xlAnd, Criteria2:="<=" & CLng(Date + 10)
End With
End Sub
Bookmarks