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.
Sub DoItAll() 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 Next i ThisWorkbook.Activate Sheets("All Files").Activate Call AggregateFiles End Sub
|Find word and 6 digit number||22||97|
|VBA Array, write each column's start position into an array||17||34|
|Add a range in an Excel graph||5||33|
|what is Visual Studio Tools for Office Runtime Redistributable||2||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
24 Experts available now in Live!