close all workbooks in other folder

[dsrt16]

I have several workbooks in a make your day folder categorized under several sub folders.

Each workbook has a macro that calls the following macro:

Public Sub CloseAll()

Dim wb As Workbook

For Each wb In Workbooks

    wb.Close False

Next wb

End Sub

I want the macro to close all workbooks opened in the make your day folder, but right now it will only close the workbooks found in the same subfolder.

Example: Make your day/specials/music.xls will only close workbooks found in the specials folder, but I need it to close all open workbooks from the entire make your day folder.