Keith R wrote:
XL2003 on WinXP. I have the weirdest thing going on, and can't figure it
out. I get an out of range error [9] when I get to the second sub.
. . .

'resize short array to 1D so Application.Match will work
ReDim Preserve ExpediteArrayShort(LBound(ExpediteArrayShort, 1) To
UBound(ExpediteArrayShort), 0 To 0)

ExpediteArrayShort is a single-column 2-D array; its elements must be
accessed with two index numbers, one for the "row" and one for the
"column." When you try to access with just one index number you get the
"Subscript out of range" error message.

Alan Beban