VBA 動的配列(２次元)を引数として参照渡しする

質問

VBAで表題の処理を実装しようとしているのですが、コンパイルエラー「ByRef引数の型が一致しません」が出ます。型は合っているように見えるのですが、どうにも解決できません。どなたか原因と対策についてご教示いただけないでしょうか。Public Sub test1()

Dim TestArray() As String: ReDim TestArray(1 To 10000, 1 To 4)

test2 TestArray

End Sub

Public Sub test2(ByRef TestArray() As String)

～処理～

End Sub

回答No.1

kkkkkm · ベストアンサー

質問のままのコードで実行してみたのですがエラーになりません。
なにか他にコードがあるのではないでしょうか

お礼

ご指摘ありがとうございます。
おっしゃる通りで他に原因がありました・・・

回答No.2

kkkkkm

Public Sub test2(ByRef TestArray() As String)

が

Public Sub test2(ByRef TestArray As String)

でしたら

ByRef引数の型が一致しません

になります。