Error en la intaxis de función Range error 1004

Buenas tardes, esto insertando un calendario en una tabla de Excel 2003 en las que debo chequear 2 celdas con fecha lo hice normalmente la primera vez y al principio lo hizo bien pero luego de guardarlo y volverlo a usar genera un error 1004 en tiempo de ejecución anexo el código respectivo, el depurador se detiene en la linea de código resaltada en negritas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range
Set rngFechas = Range("E5:E54;H5:H54")
If Union(Target, rngFechas).Address = rngFechas.Address Then _
Call abrir_calendario
End Sub
Mi pregunta es ¿Sera qué la sintaxis de la función Range esta mal?
Gracias de antemano a quien me pueda ayudar