I have another question: If my data is in rows 1 to 1500, how do I pick off the data and put it in the array sequentially from 0 to 31?
Currently, I am back to my original problem. If there is data on line 400 and 402, then 401 is blank, and the array index will be empty
For k = 1 To 1500
If Sheets("Segment Staging").Cells(k, 3).Value <> "" Then
'Copy the name into the Array
MyArray() = Sheets("Segment Staging").Cells(k, 3).Value