Dim your dates as long
[VBA]
Private Sub sSupportRota()
Dim dtDate As Long
Dim dtToday As Long

[/VBA]