Generar PDF con nombre de archivo automático

Sub CreaPDF()


Dim Pregunta As Integer
Dim NombreArchivo, RutaArchivo As String
Dim DateString As String
Pregunta = MsgBox("¿Estás seguro de generar archivo en PDF?", vbOKCancel, "Excel Consultor")

    If Pregunta = 2 Then Exit Sub
   
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
NombreArchivo = "Reporte" & DateString
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

    Range("h8").Select
   MsgBox "El archivo " & NombreArchivo & " se creó satisfactoriamente", vbOKOnly + vbInformation, "Excel Consultor"
    

End Sub