Dim a() As ......
Call Piyo(a)
......

Sub Piyo(ByRef a() As Variant)
......

こういうコードで何故か「型が一致しません」エラーが出て
Sub Piyo(ByRef a As Variant)
のように直すと出なくなったけど、理由がよく分からない