Laufzeitfehler 1004
08.08.2006 12:01:32
Stefan
ich habe ein kleine Makro welches bisher immer funktionierte, aber seit heute bekomme ich die Fehlermeldung:
Laufzeitfehler 1004:
Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Weiss jemand warum ?
Danke & Gruß
Stefan
Sub savesheets()
Dim isheet As Integer
Dim spath As String
Application.ScreenUpdating = False
'spath = "\" & ActiveSheet.Name & ".xls"
For isheet = 1 To 8
Worksheets(isheet).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close savechanges:=False
Next isheet
Application.ScreenUpdating = True
MsgBox "Job erledigt"
End Sub