Hi

I want a macro that will open a certain named file in each of 12 folders labeled with the month.

e.g C:\folder\January\MI.xlsx and C:\folder\February\MI.xlsx, etc, etc

I have the following code, which I tried to modify to get this to work, but it seems to be missing something 

Sub open1()


Dim fn As String
thePath = "C:\folder\"
fn = Dir(Format(theDate, "MMMM") & "\mi.xlsx")
Do While fn <> ""
Workbooks.Open (thePath & fn)
Loop

End Sub