Opslaan actieve tabblad PDF met naam uit cel

[Imod]

Goedemorgen,
Ik heb een code die alle excel tabbladen opslaat in een bepaald map met het pad uit cel M5 - met de tabblad namen,
Ik zou graag willen dat de code alleen het actieve tabblad opslaat met een naam uit een bepaalde cel M4,
En als bestand al bestaat dan graag een melding: bestaand bestaat reeds bestand vervangen?
Dat ik dan dit bestand kan vervangen.
In elk tabblad wil ik een knop maken voor het opslaan van het tabblad waar ik in sta.
Wat moet ik veranderen in de code?

Sub OpslaanPDF()
Pad = Range("M5").Value
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> Range("M4").Value Then
If Dir(Pad & Sh.Name & ".pdf") <> "" Then
MsgBox "Het bestand: " & Sh.Name & ".pdf bestaat reeds"
Else
Sh.ExportAsFixedFormat 0, Pad & Sh.Name, , , , , OpenAfterPublish:=False
End If
End If
Next Sh
End Sub

 

[edmoor]

Zoiets:

Sub OpslaanPDF()
    PDF = Range("M5").Value & "\" & Range("M4").Value & ".pdf"
    If Dir(PDF) <> "" Then
        If MsgBox("Het bestand " & PDF & " bestaat reeds. Vervangen?", vbExclamation + vbYesNo) = vbNo Then Exit Sub
    End If
    ActiveSheet.ExportAsFixedFormat 0, PDF
End Sub

 

[Imod]

Edmoor,

Werkt precies als gevraagd
Bedankt :thumb: