>>829
途中ってどういう意味だ?

Sub test()
Dim Arry()
ReDim Arry(5, 10)
ReDim Arry(1 To UBound(Arry), 5 To 10)
End Sub

とくにエラーはでないが?