How to add/append date to a converted pdf

[Pookiemeister]

Is there a way to add/append a time date stamp after the PDF name followed by ".pdf" without any runtime errors occuring?
Ex:
CravingFish_7/21/2020_14:11:23.pdf

Private Sub btnSave_Email_Click()
    Dim sPath As String
    Dim sFilename As String
    
    sPath = "C:\Users\NameHere\Desktop\Saved PDF TEST\"
    sFilename = ThisWorkbook.Name
    ActiveSheet.ExportAsFixedFormat xlTypePDF, sPath & sFilename

End Sub

Thank You

 

[MARK858]

Not with the / or : as they are illegal characters in a filename, if you use a legal character then yes i.e. something like...

    sFilename = ThisWorkbook.Name & "_" & Format(Now, "mm-dd-yyyy_hh mm") & ".pdf"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, sPath & sFilename

Illegal characters in Windows are...

< (less than)
> (greater than)
: (colon)
"" (double quote)
/ (forward slash)
\ (backslash)
| (vertical bar or pipe)
? (question mark)
* (asterisk)

there are some other rules but too much (and irrelevant to the post) to go into here.