Public Sub ErnaWidmann()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\Schadensmeldung " & Format(Date, "dd_MM_yyyy"))
Sheets("Feuil1").Name = "Schadensmeldung"
Workbooks("Sinistre.xlsm").Activate
Sheets("document").Activate
Application.Goto Reference:="erna"
Selection.Copy
[COLOR="red"]Windows("Schadensmeldung & Format(Date, "dd_MM_yyyy").xlsx")).Activate[/COLOR]
Sheets("Schadensmeldung").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub