Application.ScreenUpdating = False
Windows("Test.xls").Visible = True
With Workbooks("Test.xls")
.Sheets("2008").Copy Before:=.Sheets(1)
End With
Windows("Test.xls").Visible = False
Application.ScreenUpdating = True
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort