sub program ()

dim r() as double

dim i,j as integer

for i = 1 to 2

for j = 1 to 2

r(i,j)=int(rnd()*5)

next j

next i

end sub

program2()

for i=1 to 2

for j=1 to 2

cells(i,j)=r(i,j)

next j

next i

end sub

The question : how can I pass an array from a subroutine to another subroutine after populating it in the same dodule , so i can reuse in another calculation