Soru pdf yapma

[sirkülasyon]

Sub pdfaktar()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

klasor = ThisWorkbook.Path & "\pdf dosya"
If fL.FolderExists(klasor) = False Then
MkDir klasor
End If

Say = fL.getfolder(klasor).Files.Count + 1
Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=klasor & "\" & Format(Say, "000") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "İşlem Tamam", vbInformation, " U Y A R I "
End Sub

Format(Say, "000") Kısmını
içinde bulunulan ay değil bir sonraki ayın adı ile birlikte Örnek "Haziran Ayı Bilgi Listesi" şeklinde kaydetmek için nasıl düzenleyebilirim?

 

[ÖmerFaruk]

Bu kısmı aşağıdakiyle değiştirin.
Format(Say, "000") & ".pdf"

Format(Month(Date), "mmmm") & " Ayı Bilgi Listesi.pdf"

 

[sirkülasyon]

Üstad ellerine sağlık. Teşekkür ederim.
OCAK ayı olarak kayıt ediyor. Nedendir anlamadım

 

[ÖmerFaruk]

Pardon düzelttim.
Format(DateAdd("m", 1, Date), "mmmm") & " Ayı Bilgi Listesi.pdf"

 

[sirkülasyon]

Teşekkür ederim. Var olasın