macro – open all files in a folder

Question posted 2012 · +7 upvotes

I want to open all files in a specified folder and have the following code

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "\ILAFILESERVERPublicDocumentsRenewable EnergyFiTs1 Planning
           DepartmentMarks TrackerQuality Control Reports"
MyFile = Dir(MyFolder & "*.xlsx")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "" & MyFile
Loop
End Sub

The problem I have is that it just keeps trying to open the first file in the folder repeatedly and won’t move on. Can anybody help, I’m a bit of a novice at VBA and could really do with some assistance. I’m trying to open around 30 reports that are all in .xlsx format. Many thanks in advance.