[VBA] ΕΞΑΓΩΓΗ ΣΕ PDF VBA

[smasak]

Καλημέρα, χρησιμοποιώ αυτό τον κώδικα(του Γιώργου) για να εξάγω το φύλλο excel σε PDF.

Private Sub CommandButton1_Click()

Dim rng As Range, sPath As String
On Error GoTo errHandler
Set rng = Range("A1:G52")


sPath = ThisWorkbook.Path & "\Sheet_" & Format(Now(), "ddmmyyyy\_hhmmss")

rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:="" & sPath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "Error #" & Err.Number
End Sub

Πως θα μπορούσα να εξάγω το αρχείο με όνομα που θα παίρνει από κάποιο κελί αντι το "sheet";