макрос - открыть все файлы в папке

Я хочу открыть все файлы в указанной папке и иметь следующий код

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning
           Department\Marks Tracker\Quality Control Reports"
MyFile = Dir(MyFolder & "\*.xlsx")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
Loop
End Sub

У меня проблема в том, что он просто пытается открыть первый файл в папке неоднократно и не будет двигаться дальше.Может ли кто-нибудь помочь, я немного новичок в VBA и действительно мог бы помочь с некоторой помощью.Я пытаюсь открыть около 30 отчетов, которые все в формате . xlsx. Заранее большое спасибо.