VBA + Uhrzeit zwischen zwei Werten

Sub Neu()
Dim l%, sSpalte%, Nummer%, Schicht_Datum As Date, Schicht_Beginn As Date
Dim Schicht_Ende As Date, Kürzel$, Name$
With Worksheets(Tabelle_plan)
l = .Cells(Rows.Count, 2).End(xlUp).Row
' Plan durchsuchen
For l = 5 To l
' Wenn Nummer gefunden
If .Range("B" & l).Value = Nummer Then
For sSpalte = 6 To 149
' Wenn Schicht_Datum gefunden, und Uhrzeit liegt zwischen Schicht_Beginn  _
und Schicht_Ende
'###### Problemstelle #######
If CDate(.Cells(1, sSpalte)) = Schicht_Datum _
And Schicht_Beginn