vba - VBA タイプの不一致、For Each ループを使用してピボットテーブルをスライサーに接続する

Question

以下は私に型の不一致を与えます

すべてのピボットテーブルをすべてのスライサーに接続する単純なマクロを作成するために、コメント付きの作業行に触発されました。スライサーフィルターを使用してさまざまなサブセットを選択し、すべてのピボットテーブルの更新を確認したい大規模なデータセットがあります...

今、これは非常に簡単だと思います。誰かが私を助けてくれればうれしいです。

Sub ConnectSlicers_Pivottables()

'ActiveWorkbook.SlicerCaches("Slicer_Country").PivotTables.AddPivotTable_
(ActiveSheet.PivotTables("PivotTable1"))

Dim SC As SlicerCache
Dim PT As PivotTable

For Each SC In ActiveWorkbook.SlicerCaches
For Each PT In ActiveSheet.PivotTables

SC.PivotTables.AddPivotTable (PT)

Next PT
Next SC

End Sub