Only by doing it a cell at a time.

--
Regards,
Tom Ogilvy

"David" wrote in message
...
Is there an efficient way of creating a multidimensional
array from non-contiguous ranges?

The following only works because the ranges are contiguous:

Dim vaData As Variant
vaData = Range("A17:R18","A19:R20").Value