Loop to set 250 strings to cell contents

[Jan Karel Pieterse]

You can assign the value of all cells to an array in one fell swoop:

Sub GetDataFromExcel()
    Dim vArray As Variant
    vArray = Range("A1:A250").Value
    'Now vArray is a 1 to 250, 1 to 1 dimensioned array (250 rows, 1 column) containing the values of the cells
End Sub