afdrukken werkbladen als pdf bestand met naamgeving uit een cel

[peter1975]

Voor mijn werk (ben leerkracht op een school) zoek ik een manier om meerdere werkbladen af te drukken naar PDF bestand. Dit is niet spannend, wat ik echter wil is dat hij voor elk werkblad een pdf bestand maakt en er een naam aan geeft die in een vaste cel (bijv. A3) staat op elk werkblad. Is dit te doen met 1 enkele handeling (via een button met macro bijvoorbeeld)? Kan iemand mij hiermee op weg helpen?

MvG en alvast bedankt,
Peter

 

[Niels28]

De volgende code gebruik ik hiervoor maar deze werkt volgens mij
alleen in excel 2007

Sub test()
      
Dim stfilenaam As String
Dim x As Integer

For x = 1 To Sheets.Count
stfilenaam = Sheets(x).Range("A3").Value
Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\folder\" & stfilenaam, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
                
                Next x
                
      End Sub