at the top of the module

Public vArr(1 to 10) as Long

then if necessary initialize it in one of your procedures

Sub IntivArr()
for i = lbound(varr) to ubound(varr)
varr(i) = int(rnd*100+1)
Next
End sub

You will need to call InitvArr at least once before you try to extract any
values from the array (if that is what you need to do).

--
Regards,
Tom Ogilvy

"Sandy" wrote:

can I creat a public array, the contents of which are visinle to all
procuedures in the project? How do I do this?

Thanks