excel vba populate array with cell values
Sub from_sheet_make_array()
Dim thisarray As Variant
thisarray = Range("a1:a10").Value
counter = 1 'looping structure to look at array
While counter <= UBound(thisarray)
MsgBox thisarray(counter, 1)
counter = counter + 1
Wend
End Sub