Всем доброго дня.

Подскажите, пожалуйста, господа VBA-эксперты, как установить автофильтр по ТЕКУЩЕЙ дате ?

Sub ПростоМакрос()
   ActiveSheet.Range("$A$1:$C$454").AutoFilter Field:=3, Operator:= xlFilterValues, Criteria2:=Array(2, "9/12/2023")
End Sub

То есть вместо красновыделенной конструкции должна стоять текущая дата.
Оператор date выводит дату в другом формате. Надо, видимо, как-то преобразовать. А как ?
Спасибо.