Обновление полей сводной таблицы с использованием ссылочной ячейки в VBA

Question

Я установил, что мой rng точно соответствует PivotField («Сумма 20 марта»), может кто-нибудь помочь мне разобраться, так как он не работает. Спасибо

Sub Test1_DimCheck()

Dim daterng As Range
Set daterng = Sheets("Navigation").Range("A1")

Sheets("Global Forecast").PivotTables("PivotTable10").PivotFields(daterng). _
    Orientation = xlHidden

End Sub