ReDim ステートメントが動的配列以外の名前に関して使用されています。以下に例を示します。
Dim anArray(1 To 2) As Integer
ReDim anArray(1 To 3) ' Illegal because anArray was previously
' declared as a fixed array.
ReDim ステートメント内の名前を動的配列の名前で置き換えるか、そのステートメントを削除してください。