excel - セル参照を介してpowerpivotピボットテーブルフィルターを更新するには?

Question

別のワークシートのセル参照を介して Powerpivot ピボット テーブルを更新しようとしていますが、正しい構文を判断するのに問題があります。

日付をハードコードすると、コードは問題なく機能します (以下を参照)。

Sheets("Close Rate").Select                   'Select the sheet containing the pivot table to update

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
    "[Closed Cases].[Closed Date Week End].[Closed Date Week End]").ClearAllFilters

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
    "[Closed Cases].[Closed Date Week End].[Closed Date Week End]"). _
    CurrentPageName = _
    "[Closed Cases].[Closed Date Week End].&[2013-09-28T00:00:00]"

ただし、日付をハードコードするのではなく変数を使用しようとすると、「アプリケーション定義またはオブジェクト定義エラー」というメッセージが表示されます。

これは私が使用しようとしているコードです:

'Set up variables
Dim FilterDate As String

FilterDate = Sheets("CS Dashboard").Range("I5").Value   'Get date for filter

Sheets("Close Rate").Select                   'Select the sheet containing the pivot table to update

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
    "[Closed Cases].[Closed Date Week End].[Closed Date Week End]").ClearAllFilters

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
    "[Closed Cases].[Closed Date Week End].[Closed Date Week End]"). _
    CurrentPageName = _
    "[Closed Cases].[Closed Date Week End].&[FilterDate]"

変数を使用するようにこれをコーディングする方法について、誰かがガイダンスを与えることができますか?