The following Excel VBA code declares and sets an array of 30 worksheets.
Dim sht(30) As Worksheet For i = 1 To 30 Set sht(i) = ActiveWorkbook.Worksheets(i) Next i http://www.ozgrid.com/forum
For i = 1 To 30 Set sht(i) = ActiveWorkbook.Worksheets(i) Next i