PDF hernoemen op basis van celwaarde in een tabblad

[kymela]

Hi allemaal,

Ik heb een vraagje. Ik heb onderstaande code gemaakt om tabbladen op te slaan als pdf.
Maar nu wil ik graag nog een stuk toevoegen dat hij ze automatisch hernoemt naar de waarde die in cel S7 van ieder tabblad staat.
Kan iemand me helpen met de toevoeging van deze code?

Sub PDF()

Pad = Sheets("Werkbeschrijving").Range("B88").Value
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Werkbeschrijving" Then
If Dir(Pad & sh.Name & ".pdf") <> "" Then
MsgBox "The file: " & sh.Name & ".pdf already exists"
Else
sh.ExportAsFixedFormat 0, Pad & sh.Name, , , , , OpenAfterPublish:=False
End If
End If
Next sh
End Sub

Alvast thanks.

Groet,

Kyra

 

[edmoor]

Bedoel je dit?

Sub PDF()
    pad = Sheets("Werkbeschrijving").Range("B88").Value
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "Werkbeschrijving" Then
            sPDF = pad & "\" & sh.Range("S7") & ".pdf"
            If Dir(sPDF) <> "" Then
                MsgBox "The file: " & sPDF & " already exists"
            Else
                sh.ExportAsFixedFormat 0, sPDF
            End If
        End If
    Next sh
End Sub

 

[kymela]

Ja! Werkt super, dankjewel!