Makro läuft in Excel 8.0 nicht

Sub urkunde12042003()
' Urkunde Anhand der Startnummer drucken
Dim Suche As Integer
Dim Zeile As Long
Dim Spalte As Integer

Sheets("Urkunde").Select
Range("B14:C17,D17,C18,C19,C20,D21").ClearContents
Suche = Sheets("Urkunde").Cells(12, 8)
Application.ScreenUpdating = False

Worksheets("Ergebnisse").Activate
Cells(1, 1).Select

For Zeile = 1 To Cells.SpecialCells(xlLastCell).Row

If Sheets("Ergebnisse").Cells(Zeile, 3) = Suche Then
Sheets("Urkunde").Cells(14, 2) = Sheets("Ergebnisse").Cells(Zeile, 12)
Sheets("Urkunde").Cells(17, 1) = Sheets("Ergebnisse").Cells(Zeile, 6)
Sheets("Urkunde").Cells(17, 2) = Sheets("Ergebnisse").Cells(Zeile, 5)
Sheets("Urkunde").Cells(18, 3) = Sheets("Ergebnisse").Cells(Zeile, 10)
Sheets("Urkunde").Cells(19, 3) = Sheets("Ergebnisse").Cells(Zeile, 1) & ". Platz Gesamtwertung"
Sheets("Urkunde").Cells(20, 3) = Sheets("Ergebnisse").Cells(Zeile, 2) & ". Platz in der Altersklasse"
Sheets("Urkunde").Cells(21, 4) = Sheets("Ergebnisse").Cells(Zeile, 4)
End If
Next Zeile

If IsEmpty(Sheets("Urkunde").Cells(21, 4)) Then
Sheets("Urkunde").Select
MsgBox "Startnummerdaten nicht vorhanden!"
Exit Sub
End If

Application.ScreenUpdating = True
Sheets("Urkunde").Select
Sheets("Urkunde").Cells(17, 3).Value = Cells(17, 1).Value & " " & Cells(17, 2).Value
Range("A17,B17").ClearContents

If Range("I1000").End(xlUp).Row + 1 < 20 Then
LetzteZeile = 20
Else
LetzteZeile = Range("I1000").End(xlUp).Row + 1
End If

'Wert übertragen
Cells(LetzteZeile, 9) = Range("H12")

Sheets("Urkunde").Select
Range("H12").Select
ActiveSheet.PrintOut

End Sub

Kann mir jemand das Makro soweit ändern das es in Excel 8.0 läuft?

Vielen Dank für eure Hilfe!

Tschüß
Rolf