This macro works perfectly to open 14 workbooks - whose names are listed in the Range("J3:J16") - and aggregate their data on Sheet 1. However I want it to open all the files in the folder ("330_09~03") no matter what the file names are.
Dim iPath As String, iFile As String, i As Long
iPath = "H:\Depts\css\A_ILS & Reliability\Reliability\1-CURRENT\System Reporting\SDAE\KAL\2013\Originals Data Files\330_09~03\"
For i = 3 To 16
Workbooks.Open Filename:=iPath & ThisWorkbook.Sheets("Sheet1").Cells(i, 10).Value
What's the absolute simplest way to replace my 3 "For..Next" lines and achieve the same result? They're all ".xls" files if that makes it any simpler.