Excelmap als PDF opslaan

[Marco9999]

Hallo,

Ik heb een rapport in Excel staan en wil deze via een macro als PDF opslaan.
Werkt allemaal als een zonnetje met onderstaande code:

Sub PDFmaken()

Application.ScreenUpdating = False

For Each ws In ActiveWorkbook.Sheets
    If Not ws.Name = "Voorblad" Then
    ws.Unprotect
    With ws.UsedRange.Interior
        .Pattern = xlNone
    End With
    ws.Protect
    End If
Next ws

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Worksheets("Intern").Range("by289").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Application.ScreenUpdating = True
    
End Sub

Nu wil ik dat de PDF in dezelfde map opgeslagen wordt als waar het desbetreffende Excel bestand staat. Dat gebeurd nu dus niet.
De mapnaam en de locatie van de map is niet altijd hetzelfde.
Iemand enig idee hoe dit op te lossen?

Alvast mijn dank!

 

[SjonR]

probeer deze eens:

ActiveWorkbook.ExportAsFixedFormat 0, ActiveWorkbook.Path & "\" & Worksheets("Intern").Range("BY289").Value, , 1, 0, , , 1

 

[Marco9999]

Helemaal top! :thumb:
Bedankt!

 

[HSV]

Gebruik Thisworkbook i.p.v Activeworkbook.