Guten Morgen und Hallo!

Ich habe ein Makro geschrieben, welches mir das letzte Tabellenblatt ermittelt,
und es anschließend kopiert und an das Ende des Workbooks stellt.
Zusätzlich wird es noch umbenannt.

Unter Excel2000 läuft es prima, aber unter Exce97 bekomme ich immer den Fehler:

Laufzeitfehler "1004"
Die copy-Methode des Worksheet-Objektes ist fehlerhaft!

Mein Code (Standardmodul, über Button aufgerufen):

Dim seitenzahl As Integer
Dim name2 As String
name2 = ActiveWorkbook.Name

For b = 1 To Sheets.Count
lastsheet = (Sheets(b).Name)
Next b

Workbooks(name2).Sheets(lastsheet).Copy after:=Workbooks(name2).Sheets(lastsheet)

For i = 1 To Sheets.Count
lastsheet = (Sheets(i).Name)
Next i

seitenzahl = i - 1

Sheets(lastsheet).Select
Sheets(lastsheet).Name = "Fahrzeuglebenslauf (Seite " & seitenzahl & ")"
Range("A53:A53").Select
Range("A53:A53") = "Seite " & seitenzahl

End Sub

Kann mir jemand sagen, woran das liegt? Wäre für jede Hilfe dankbar!

Grüße
Christof