Macro to open and close all files in a folder and sub folders

Hi

I have the following to open all files in a specific folder

Formula:

Sub OpenAll() 

    Dim path As Variant 

    Dim excelfile As Variant 

    path = "\\example\1 January\" 

     

    excelfile = Dir(path & "*.xlsx") 

 

    Do While excelfile <> "" 

        Workbooks.Open Filename:=path & excelfile 

        excelfile = Dir 

    Loop 

End Sub 

But want I really need is for it to also look in the sub folders and open all those too, I also would like for it to then close them all.

Is this something that can be done?

thanks