Посмотрите вариант.
[vba]Код
Sub SohrXLS()
Dim WbMain As Workbook
Dim Wb As Workbook
Dim Mesyac As String
Dim Papka As String
Dim MyPath As String
Mesyac = Format(Now, "mmmm yyyy")
Set WbMain = ActiveWorkbook
Papka = WbMain.Path & "\" & Sheets(1).Range("K13").Value & " " & Mesyac
If Dir(Papka, vbDirectory) = "" Then MkDir Papka
WbMain.Sheets(1).Copy
Set Wb = ActiveWorkbook
Wb.SaveAs Papka & "\" & "Заявка " & Sheets(1).Range("A1").Value & " от " & Sheets(1).Range("M4").Value & ".xls"
Wb.Close
MsgBox " Лист в виде отдельного файла сохранен в папку по адресу: " & Papka
End Sub
[/vba]