What about accessing the Workbook using "GetObject" and loading the values into an ArrayList.. ?
Private Sub CommandButton1_Click()
Dim myArrayList As Object, x, a
Dim wbA As Excel.Workbook
Set wbA = GetObject(ThisWorkbook.Path & "\Test.xlsx")
x = wbA.Sheets("Sheet1").Range("A1:Z50")
Set myArrayList = CreateObject("System.Collections.ArrayList")
For Each a In x
myArrayList.Add a & " "
Next a
'Example of looping through the arraylist
For i = 0 To myArrayList.Count
MsgBox myArrayList(i)
Next i
wbA.Close False
Set wbA = Nothing
End Sub
Bookmarks