= СЕГОДНЯ () Функция не работает с кодом для критерия даты

Question

Ниже приведен код, с которым я работаю, чтобы создать новую таблицу на основе критериев (отдел и дата) из исходной таблицы. MaxDate работает, когда я указываю c дату «8/4/2020», но не когда я пытаюсь использовать функцию «= СЕГОДНЯ ()». Есть идеи?

Sub DepartmentSearch()
    
    Department = "IT"
    MaxDate = "=TODAY()"

    Set rng = ActiveSheet.UsedRange  ' source table
    rng.AutoFilter Field:=13, Criteria1:=Department  ' filter Department
    ActiveSheet.UsedRange.AutoFilter Field:=8, Criteria1:="<" & MaxDate  ' filter date
    rng.Copy  ' copy filtered rows
    Range("Z2").Select ' source table
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False  ' paste values to target table
    rng.AutoFilter ' turn off filter on source table

End Sub

Answer 1

Вы объединяете формулы и VBA.

Тем не менее, просто используйте Date:

MaxDate = Date