Формат даты предыдущий месяц

[vladturbo]

Добрый день!
Подскажите!
Необходимо макросом создавать папку и присваивать ей имя состояшее из даты в формате mmmm.yyyy + текст, однако mmmm - должен быть предыдущим. Т.е. если папка создается в сентябре, то имя ей присваивается август и т.д.

Sub Создание_папки()
Dim PathToSave As String, FolderName As String, FellPathToSave As String
Dim fs As Object
PathToSave = "C:\"
FolderName = CStr(Format(Now, "mmmm.yyyy") & "Электроэнергия")
FellPathToSave = PathToSave & FolderName & "\"
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists(FellPathToSave) Then
   fs.CreateFolder (FellPathToSave)
End If
End Sub

[Poltava]

Код Выделить Развернуть

FolderName =  CStr(Format(DateAdd("m", -1, Now), "mmmm.yyyy") & "Электроэнергия")

[vladturbo]

Спасибо!