"Type:"xlTypePDF" durch "Type:=xlOpenXMLWorkbook"

und

".pdf" durch ".xlsm" 

ersetzen dann sollte es klappen.

...zur Antwort

Holt euch doch ein Hotel ;)

...zur Antwort