Excel - colorear rangos de fechas

hola a todos

como puedo hacer para colorear rangos de fechas, utilizando el siguiente codigo??

es decir, que coloree las fechas comprendidas entre a1 y b1,
sin recurrir al formato condicional de excel

imagino que es algo similar a

Case Is = Range("a1:b1"): celda.Interior.ColorIndex = 4

pero no consigo que funcione

------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celda As Range
Target.Interior.ColorIndex = xlNone
On Error GoTo Salida
For Each celda In Target.SpecialCells(xlCellTypeConstants)
Select Case (celda)
Case Is = Range("a1"), Range("b1"): celda.Interior.ColorIndex = 4
Case Else: celda.Interior.ColorIndex = xlNone
End Select
Next celda
Salida:
End Sub
------------------------------------