Aufgabe an Outlook wenn Datum gleich heute

Sub AufgabenAnlegen()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Dim AnZ As Long
Dim a As Long
Dim wer As String
Dim Aendd As Date
Dim bis As Date
Dim txt As String
Dim betr As String
Dim Them As String
AnZ = Range("H999").End(xlUp).Row
For a = 14 To AnZ
Set myItem = myOlApp.CreateItem(olTaskItem)
myItem.Assign
wer = Cells(a, 8)
Aendd = Cells(a, 3)
bis = Cells(a, 10)
txt = Cells(a, 7)
betr = Cells(a, 5) & " - " & Cells(a, 6)
Them = Cells(a, 4)
Set myDelegate = myItem.Recipients.Add(wer)
myDelegate.Resolve
With myItem
.Subject = betr
.Body = txt
.Categories = Them
.DueDate = bis
.StartDate = Aendd
.Display
End With
Set myItem = Nothing
Next a
End Sub

vielen dank schon mal:-)
Lucia