Was ist daran falsch?

ich habe ein Macro aufgezeichnet, was nur aus einer anderen Datei Daten kopieren und in meine Tabelle einfügen soll. Das funktioniert auch. Wenn ich dieses aber in den Code einer Befehlsschalfläche kopiere, gehts nicht mehr. Kann mir jemand helfen? Danke

ChDir "C:\temp"
Workbooks.Open Filename:="C:\temp\Test1.xls"
Range("A7:H7").Select
Selection.Copy
Windows("Mappe1").Activate
Range("A5").Select
ActiveSheet.Paste
Range("A2").Select
Windows("Test1.xls").Activate
ActiveWorkbook.Close
End Sub

Gruß Stefan