Code to save excel dashboard into pdf based on name in drop down list

[TyeReece]

I have a dashboard that uses a drop down box of close to two hundred names in it (named range = programlist). Each time I select a new name, the dashboard changes. Is there vb code that will loop thru the names and save each file as a pdf (or print to pdf printer) using the name of the program selected in the drop down list and the date?

 

[lhartono]

Try this,

[COLOR=#d3d3d3]'[/COLOR]
[COLOR=#0000cd]Private Sub CommandButton1_Click()

Dim strFilename As String
Dim idx         As Long

On Error GoTo Hell

ActiveWorkbook.Sheets("Dashboard").Activate

For idx = 0 To (Me.ComboBox1.ListCount - 1)
    Me.ComboBox1.ListIndex = idx
    Me.Calculate
    Do Until Application.Ready
        DoEvents
    Loop
    strFilename = "D:\Reports\" & Me.ComboBox1 & ".pdf"
    Application.DisplayAlerts = False
        Me.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        Application.StatusBar = " Saving " & strFilename
    Application.DisplayAlerts = True
Next

GetOut:
Application.DisplayAlerts = True
Application.StatusBar = vbNullString
Exit Sub

Hell:
MsgBox "Error # " & Err.Number & vbNewLine & vbNewLine & Err.Description, vbCritical, "Notification"
Resume GetOut

End Sub
[/COLOR][COLOR=#d3d3d3]'
'[/COLOR]

 

[TyeReece]

This looks like it would work but instead of a combo box I have cell A4 as a data validation list (=ProgramList). How do I replace that section of code with something that just references the data validation list? Or do I have to insert a combo box?