Macro to open specific files in sub-folders

[howard]

I have tried to write code to open all files containing Template.2020.xlsm in the sub-folders

when running the macro, no files are opened

 Sub OpenFiles ()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "\\dml\sales\" 'Change folder location
MyFile = Dir(MyFolder & "\*template.2020*.xlsm")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
MyFile = Dir
Loop
End Sub

It would be appreciated if someone could kindly assist me

 

[Fluff]

Duplicate Macro to copy specific files from Sub Folder to Folder

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).