Schau dir bitte nochmal UweD's Antwort auf deine Eingangsfrage an:

Wie kann ich mit folgendem Makro den PDF Dateinamen erstellen aus dem Zellwert F20 und dem Tabellenblattnamen?

sDateiName = WSh.Name & "_" & WSh.Range("F20")
sDateiName = Left$(sDateiName, InStrRev(sDateiName, ".")) & "pdf"

Deine Antwort darauf:

Mir nimmt es immer den ganzen Dateiname des Excels als PDF Dateibeschriftung. Ich möchte aber nur den Wert aus Zelle A1_A. Also z.B. 10_A.pdf

sDateiName = ThisWorkbook.FullName
sDateiName = Left$(sDateiName, InStrRev(sDateiName, ".")) & "pdf"

Natürlich nimmt er den ganzen Dateinamen, du hast das doch selbst angegeben.

Orientiere dich an UweD's Ansatz, den Blattnamen mit einem Zellwert zu verknüpfen um daraus den Dateinamen der PDF zu erzeugen.

Grüße