Hallo Sabi,

damit dein Code immer läuft, solltest du auf Chdir() verzichten und besser  einen absoluten Dateiname inkl. Laufwerksbuchstabe und Pfad verwenden.

Dafür stehen dir die Eigenschaften .Fullname, .Path, und .Name des aktuellen Workbook zur Verfügung. Hieraus generierst du dir den gewünschten Filenamen und übergibst diesen als Argument an ExportAsFixedFormat().