Another way is to just work on each cell in the range.

Dim myRng as range
dim myCell as range
dim wks as worksheet

set wks = activesheet

with activesheet
set myrng = .range("x99").resize(40,60) '40 rows by 60 columns
end with

for each mycell in myrng.cells
'do something with that cell
msgbox mycell.value & vblf & mycell.address(0,0)
next mycell



Under Pressure wrote:

I have some data in a spreadsheet and want to do some complex things with it.
In the 'old days of GWBASIC' - before spreadsheets - I would set up the
following lines of programming:-

Dim table(40,60)
For i=1 to 40:for j=1 to 60
Read table(i,j)
next j:next i

Then I would analyse the data in the array.

I know that macros can handle the for/next loops but what are the equivalent
lines for setting up a 2 dimensional array and then getting the data from the
spreadsheet?

Any help would be appreciated.

Thanks

Under Pressure

--

Dave Peterson