Start- bis Enddatum markieren

Ich habe ein Problem und bin mir eigendlich siher daas mir im Forum geholfen werden kann. Das folgende Makro (von Hans) sollte die Tage zwischen Start und Enddatum farbig markieren. Wer kann mir helfen oder wer hat einen besseren Code?

Sub Markieren()
Dim gZelle As Range
Dim Anfang
Dim Ende
On Error GoTo ErrorHandler
Anfang = CDate(InputBox("Anfang:"))
Set gZelle = Columns(1).Find(DateValue(Anfang), LookIn:=xlFormulas)
If gZelle Is Nothing Then GoTo ErrorHandler
gZelle.Interior.ColorIndex = 3
Ende = CDate(InputBox("Ende:"))
Set gZelle = Columns(1).Find(DateValue(Ende), LookIn:=xlFormulas)
If gZelle Is Nothing Then GoTo ErrorHandler
gZelle.Interior.ColorIndex = 3
End
ErrorHandler:
Beep
MsgBox "Kein gültiges Datum!"
End Sub

vielen Dank im voraus Jens