Hi,

I want to open a series of excel files, all saved in one folder, from a range defined in cells F2 through F17. I defined the exact file locations in the range and all I want is to open them and return back to the active worksheet:

Sub FileOpenLoop()
Dim ThisFileName, FileToOpen As String

ThisFileName = ActiveWorkbook.Name
Range("F2:F17").Select
Do While ActiveCell <> ""

FileToOpen = ActiveCell
Workbooks.Open(Filename:=FileToOpen).RunAutoMacros _
Which:=xlAutoOpen

'run your macros and close file

Windows(ThisFileName).Activate

ActiveCell.Offset(1, 0).Range("f17").Select
Loop
End Sub
The problem I'm finding with the above code is it opens the file as defined in cell F2 but none of the proceeding files from F3 to F17. Your assistance is much appreciated. ~Andrea