Добрый день!  
Подскажите!  
Необходимо макросом создавать папку и присваивать ей имя состояшее из даты в формате 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