mit Makro kopieren

Das Makro funktioniert so ganz gut.

Ich möchte aber anstatt der Musterdatei.xls
eine Datei manuell auswählen.
Bitte um Hilfe

Danke
Gruß
Hilmar

Sub Makro1()
'
' Makro1 Makro
' Makro am 04.03.2003 von aufgezeichnet
'
'
ChDir "C:\TEMP"
Workbooks.Open Filename:="C:\TEMP\Anschreiben.xls"
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy after:=Workbooks("MusterDatei.xls").Sheets(1)
Windows("Anschreiben.xls").Activate
ActiveWorkbook.Close

End Sub