كود لحفظ الصفحه pdf بالاسم والتاريخ

[wazkr]

عاوز أضيف على الكود دا حفظ التاريخ كمان بحيث الملف يتحفظ بالإسم والتاريخ كمان 

Sub SAVERANGEPDF()
' SAVERANGEPDF ماكرو
' SAVE RANG EPDF
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & ThisWorkbook.Name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

SAVE PDF.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

جرب هل هدا ما تقصده

Sub SAVERANGEPDF()
Dim FilePath As String
Dim filename As String

'filename = ActiveSheet.Name & "_" & Format(Now, "dd-mm-yyyy") & ".pdf"
'OR
 filename = ThisWorkbook.Name & "_" & Format(Now, "dd-mm-yyyy") & ".pdf"
  FilePath = Application.ActiveWorkbook.Path & Application.PathSeparator & filename
  
   Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:=FilePath, _
   Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True
   
End Sub