VBA Salva come PDF con Nome file come Valore cella

Question

Sto cercando di salvare quattro fogli in un unico PDF. Il codice qui sotto è quello che ho finora. Quando uso il comando ActiveSheet.Name nel nome del file funziona, tuttavia quando lo cambio in un intervallo per una cella che è dinamico, non funziona più e si verifica errori. Qualsiasi aiuto sarebbe apprezzato.

Sheets(Array("Dashboard Pg 1", "Dashboard Pg 2", "Dashboard Pg 3", _ 
    "Dashboard Pg 4")).Select 
Sheets("Dashboard Pg 1").Activate 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "C:\Users\Allen\Desktop\Projects\" & ActiveSheet.Range("K17").Value & ".pdf" _ 
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 
Sheets("Summary").Select 

Answer 1

Prova questo:

Dim strFilename  As String 
Dim rngRange  As Range 

'Considering Sheet1 to be where you need to pick file name 
Set rngRange = Worksheets("Sheet1").Range("K17") 

'Create File name with dateStamp 
strFilename = rngRange.Value & Format(Now(), "yyyymmdd hhmmss") 

Sheets(Array("Dashboard Pg 1", "Dashboard Pg 2", "Dashboard Pg 3", "Dashboard Pg 4")).Select 
Sheets("Dashboard Pg 1").Activate 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "C:\Users\Allen\Desktop\Projects\" & strFilename & ".pdf" _ 
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 

Sheets("Summary").Select