Создание папки и подпапок с названиями и числами месяцев - VBA

Формулировка задачи:

Добрый день. Вопрос такой. Есть ли возможность организовать в excel макрос, который в нужной директории создаёт подпапку с названием месяца а внутри неё нужное кол-во ещё одних подпапок, в названиях которых числа месяца? И возможно назначить этому макросу условие: допустим, наступило 1 число нового месяца, я запускаю макрос и получаю в директории новую папку с названием этого месяца, внутри которой нужное кол-во папок??)) Примера нет, т.к. только начал работать в данном направлении, пока теория....

Решение задачи: «Создание папки и подпапок с названиями и числами месяцев»

textual
                            Листинг программы 
                        

                            Private Sub Test2()
    Dim i As Date
 
    For i = DateSerial(Year(Now), Month(Now), 1) To DateSerial(Year(Now), Month(Now) + 1, 0)
        MakeSureDirectoryPathExists ThisWorkbook.Path & Format(i, "\\YYYY\\MMMM\\D\\")
    Next
End Sub
                        