i need to transfer data from excel worksheet to an array. one way to do is
read cell by cell. this works fine but is very time consuming. for example:

Sheet1.Activate
For CounterNumber1 = 1 To 10
For CounterNumber2 = 1 To 10
OriginalMatrix(CounterNumber1, CounterNumber2) =
Sheet1.Cells(CounterNumber1, CounterNumber2).Value
Next CounterNumber2
Next CounterNumber1

is there a way to tranfer the entire range a1 to j10 to the array at a time
so that computation becomes faster. the following code doesn't work:

Sheet1.Activate
OriginalMatrix = Sheet1.Range("a1:j10").value

any suggestions please?

tia