lcXLS = GetFile('XLS') oExcel = CreateObject('Excel.Application') oExcel.Workbooks.Open(lcXLS) *Up to this point you opened a workbook and have an ActiveWorkbook object. *Assuming you'd access to cells in G4:J20 : with oExcel.Activeworkbook.ActiveSheet.Range('G4:J20') For ix = 1 to .Rows.count For jx = 1 to .Columns.count ? .Cells(ix,jx).Value Endfor Endfor endwithPS: If you'd get all the cell values in Used Range then you'd use :