Maco excel opslaan als PDF naam+datum+tijd

[getyours]

Hallo,

Ik wil graag onderstaande macro gebruiken om een excelwerkblad op te slaan als pdf
met datum en tijd zodat ik unieke namen krijg,

Als ik de Cel "AL15" leeg laat werkt het macro, als ik deze vul met de datum dan krijg ik een
foutmelding run time error 1004 file not saved.......

Het doel is om het macro te gebruiken om elke 8 een rapport op te slaan onder een unieke naam.

Sub pdf_opslaan ()

    Dim Bestand As String

    Runtimer = Now + TimeValue("08:00:00")
    Application.OnTime Runtimer, "pdf_opslaan"
     
    fileNaam = "shift-dashboard" & " " & ActiveSheet.Range("AL15").Value
    Bestand = "C:\Users\xxxxx\Documents\Reports\pdf\" & fileNaam & ".pdf"
    Range("A1:AJ54").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Bestand
    
    End Sub

 

[SjonR]

en wat staat er in cel AL15? Tekens die niet in een bestandsnaam mogen staan wellicht?

\
/
*
[
]
:
?

 

[getyours]

Klopt tekens zijn het probleem
Hoe zou ik de bestanden kunnen opslaan op datum en tijd?

ben er al uit bedankt

shift-dashboard " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & "