Macro to autofilter x days before Max date

[ziyan89]

My current VBA module is below which only filter the Max Date, but I need to add in another criteria to filter both Max date and x days before Max date

Code: Select all

Sub Test1()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
Dim myDate As Date
myDate = Application.Max(Columns(1))
Columns(1).AutoFilter Field:=1, Criteria1:="=" & Format(myDate, "d-mmm-yy")

Application.ScreenUpdating = True
End Sub

Thank you for your kind help

[pecoflyer]

Hi and welcome.
As you can see on your screen there is some text in red fonts asking to wrap code with code tags.
I will do it for you this time.
Please take a moment to read forum rules.

Thank you