Thread: Problem declaring an array

Originally Posted by Mordred

To declare up to 'Dividend',

Sub LydiasDadsArray()
   Dim LydiasArray() as Long, aCnt as Long  
   ReDim LydiasArray(Dividend)
   For aCnt = 1 to Dividend
      LydiasArray(aCnt) = '''What ever you want it to equal!!'''
   next aCnt
End Sub

This assumes you have an option base 1 statement at the top of the module - the default is base 0, so you should loop from 0, not 1. Better to loop from Lbound to Ubound though.