und Danke für die Hilfe
bin fast fertig
ActiveWorkbook.SaveAs (Month(Now) & "." & Year(Now) & " PügbNr." & _
Range("I2").Value & ".XLS")
funzt perfekt.
Ich möchte jetzt nur noch einen Dateipfad einbinden ? D:\Eigene Dateien\Ablage
Vielen Dank vorab
Reutlingen 28 Grad Blauer Himmel