Фильтрация сводной таблицы через VBA - даты фильтрации

Question

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

Sub FilterPivotTable()

   Dim pt As PivotTable
   Dim pf As PivotField
   Dim pi As PivotItem

   Set pt = Sheets("pivotTable").PivotTables("PivotTable1")   ' PivotTable1 is the name of the table. Fix variable

   Dim pItem As String   ' the value from "H3" is filtered
   pItem = Sheets("pivotTable").range("H3")

   ' Pivot Table Fields: KG Date  Units Value

   Set pf = pt.PivotFields("Date")
   pf.ClearAllFilters

   ' pi is returning an error due to the cell format
   ' cell format is Date
   Set pi = pf.PivotItems(pItem)
   pi.Visible = False

   Debug.Print pi

End Sub