Arbeitmappe namen zuweisen

Ich möchte mit Hilfe eines Makros eine Arbeitsmappe, kopieren und anschließend dieser direkt einen Namen zuweisen.
Hat einer ne Ahnung wie ich das machen kann?

Also, ich dachte mir das so. Ich kopiere die Mappe und benenne sie anschließend gleich um.

Workbooks("XY.xls").Worksheets(1).Copy
Workbooks(2).Name = "Temp"

Dabei bekomme ich allerdings immer die Fehlermeldung
"Fehler beim Kompilieren: Zuweisung an schreibgeschütze Eigenschaft nicht möglich"

Hat jemand ne Idee, wie es trotzdem geht?

Danke im Vorraus

Gruß

Markus