Excel Makro auf Late Binding umstellen

Ich habe eine Makro Code erstellt der leider nur bei der Outlook Version 2003 läuft.
Dies liegt an dem Verweis.
Nun weiß ich, dass die Verweise bei Late Binding nicht mehr notwendig sind.
Ich bekomme aber nicht hin meinen Code auf Late Binding umzustellen.

Hier der Code:

Private Sub cmdHeim_Click()

Zeile = 2

ActiveSheet.Cells(1, 1).Select

Do While (ActiveCell.Value <> \“\“)

ActiveSheet.Cells(Zeile, 1).Select
Gegner1 = ActiveCell.Value

ActiveSheet.Cells(Zeile, 2).Select
Spieldatum1 = ActiveCell.Value

ActiveSheet.Cells(Zeile, 3).Select
BeginnZeit1 = ActiveCell.Value

ActiveSheet.Cells(Zeile, 4).Select
EndZeit1 = ActiveCell.Value

ActiveSheet.Cells(Zeile, 16).Select
kategorie1 = ActiveCell.Value

ActiveSheet.Cells(Zeile, 17).Select
Ort1 = ActiveCell.Value

Zeile = Zeile + 1

ActiveSheet.Cells(Zeile, 1).Select

Dim ooutlook As New Outlook.Application
Dim termin As Outlook.AppointmentItem
Set termin = ooutlook.CreateItem(olAppointmentItem)

termin.Subject = Gegner1
termin.ReminderSet = True
termin.AllDayEvent = True

termin.Categories = kategorie1
termin.BusyStatus = olOutOfOffice
termin.Location = Ort1
termin.Duration = 90
termin.Body = Test
termin.Start = Spieldatum1 + \“ \“ + BeginnZeit1
termin.Sensitivity = olPrivate
termin.ReminderMinutesBeforeStart = 240
termin.Save

Loop
End Sub

Es wäre gut wenn mir jemand Helfen könnte.
Ich weiß das ich die Variablen als object definieren muss. Das reicht aber leider nicht.
Schonmal Danke.

Gruß
Niklas

[Editiert am 11/9/2008 von Salkin]