myBase = Range("A1:A4").Value
For i = LBound(myBase, 1) To UBound(myBase, 1)
    Debug.Print myBase(i, 1)
Next