excel - 配列を渡そうとしたときのアプリケーション定義またはオブジェクト定義のエラー

Question

配列をピボット テーブル フィールドに渡そうとしていますが、実行時に Excel で実行時エラー : 1004 エラー "アプリケーション定義またはオブジェクト定義エラー" がスローされます。以下は、VBA で記述したコードの一部です。

Sub ARRAYER()
    Dim i As Double
    Dim ALM(8) As String

    Sheet15.PivotTables("significance_pivot2").PivotFields("Pagename"). _
    ClearAllFilters
    For i = 1 To 8
        ALM(i) = CStr(Sheet4.Range("F" + CStr(i + 2) + "").Text)
    Next

    For i = 1 To 8
        Sheet4.Range("AA" & i).Value = ALM(i)
    Next i

    Sheet15.PivotTables("significance_pivot2").PivotFields("Pagename").VisibleItemsList = Array(ALM)-- It trows an error here!!!

End Sub