Автофильтр с использованием даты в британском формате

Question

Sub test()
    Dim s_date As Date
    Dim lo_j As ListObject

    Set lo_j = mytable.ListObjects(1)

    s_date = ThisWorkbook.Names("in_date").RefersToRange(1, 1)

    Debug.Print s_date

    With lo_j.Range
        .AutoFilter Field:=10, Criteria1:=s_date
    End With
End sub

В приведенном выше коде s_date выводится в окне VBA в качестве «31/12/2018».

Однако, когда он применяется к отфильтрованной таблице, он отображается как «31.12.2008». Это заставляет автофильтр ничего не показывать.

Я пытался преобразовать s_date в строку, но это не решает проблему. Как заставить s_date быть примененным как "31/12/2018" в таблице автофильтра?

Кроме того, все данные в столбце 10 таблицы являются датами.