Hi Pierre,
ändere diese Zeile:
FileName = Range("Z2").Value & ".pdf"
FileName = Range(
"Z2"
).Value &
".pdf"
LG
Alexandra