Hi:


I have 20 or so module-level arrays that I want to Erase after eac
calling. My current code follows:


Module A
-----------------------

Private Array1() as Integer, _
Array2() as Long, _
Array3() as Double, _
:
:
Array20() as Integer


Public Sub Sub1()
....Code
End Sub

Public Sub EraseArray()
Erase Array1
Erase Array2
:
:
Erase Array20
End Sub

-------------------------------

Module B
------------------------

Sub Sub2()
Dim i as Integer

For i = 1 to 3
Sub1
EraseArray
Next i

End Sub

-------------------------------------


I use EraseArray to make sure that the new run doesn't retain any ol
values. My question is there a way to reset my module-level arra
without actually typing all 20 or so arrays like what I did in my Su
EraseArray()



Regards,
Adrian

--
Message posted from http://www.ExcelForum.com