Gem område som PDF

Hvid du vælger Save as og vælger PDF kommer der en Options knap, og der kan du vælge Selection. Så får du kun gemt det udvalgte område

Det jeg ønsker er noget VBA der gemmer/printer området med det navn der står i B2.

Mon ikke dette vil kunne klare det? Husk at rette stien.

Sub Macro1()
Dim Navn As String
Navn = "D:\Excel\Eksperten\" & Range("B2") & ".pdf"
    Range("D1:G40").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Navn, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Range("A1").Select
End Sub

Det hele kan klares på en enkelt kode linje:

Range("D1:G40").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\MinMappe\" & Range("B2").Value & ".PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False

Husk, at rette stien til...

Hej Dan og Jens
Jeg har fundet tråden her og forsøgt at låne jeres kode. Jeg får desværre fejl, og den kommer ved > Selection.exportAs....<

Den foreslår at det kan være fordi filen er åben, men det mener jeg ikke giver nogen mening.

Jeg bruger Dansk excel fra office16