Exceli pdf olarak kayıt etme

[enesyildiz]

Sub Kaydet()
With Sheets("Sayfa adı")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\olcme\Desktop\Günlükler Hk\günlük.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub

Yukarıdaki kod ile aynı çalışma kitabındaki 1den fazla sayfayı aynı pdf dosyasına nasıl kayıt ederim. Birde kayıt edilecek dosya adını kod içerisinden belirlemek istiyorum. Yardımlarınız için teşekkürler.

 

[askm]

https://www.excel.web.tr/threads/sayfalari-birlestirerek-pdf-kaydetme.178126/#post-977933 link işinize yarayacaktır.
Dosya adı Filename:="C:\Users\olcme\Desktop\Günlükler Hk\günlük.pdf" kısmında alıyor. Eğer hücreden alsın istiyorsanız. Filename:="C:\Users\olcme\Desktop\Günlükler Hk\" & Range("A1") & ".pdf" şeklinde değiştirmeniz gerekir.