Ich habe gestern von Alwin Weisangler und Uwe zwei Vorschläge erhalten,

ThisWorkbook.SaveCopyAs "T:\Sicherung\" & ThisWorkbook.Name

dafür bedanke ich mich bei allen. Leider komme ich damit nicht weiter weil meine VBA-Kenntnisse zu bescheiden sind. Ist es vielleicht möglich mir das kompete Makro bekannt zu geben. Ich wäre dafür sehr dankbar.
Grüsse an alle
Kettenriss