Дата показа ранее конкретной даты

Question

Я столкнулся с проблемой, и я борюсь с легкой проблемой. Я хочу, чтобы VBA подсчитал все пункты предыдущей даты.

Я уверен, что мой код + файл Excel имеет форматы дат, но он не работает. Когда я ищу точную дату - это работает, но когда я добавляю знак большинства - VBA показывает мне всегда ноль в окне приглашения.

Знаете ли вы, где проблема?

Sub test()
Set oWorkbook = ActiveWorkbook
Dim suma_processed3 As Integer
Dim Rng As Integer


Rng = Range("A" & Rows.Count).End(xlUp).Row

If IsDate(Range("AH5")) Then
Call MsgBox("its a date")
Else
Call MsgBox("this is not a date")
End If

suma_processed3 = Application.WorksheetFunction.CountIf(Range("AH2:AH" & Rng), ">" & CDate("26.03.2018"))


Call MsgBox(suma_processed3)

End Sub