If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook, the
following will transfer the data from A1:C4 to a 4x3 array of type
Integer() (if each element of the range is an integer):

Dim arr() As Integer
Assign Range("A1:C4"),arr

Alan Beban