since 2007 the code doesn't work

Sub vakantie_check()
Dim datum As Date
datum = Range("datum_vandaag")
   Select Case datum
       ' de afdruk wordt gemaakt tijdens een vakantie
       Case Range("herfst_begin") To Range("herfst_eind")
            Range("datum_vandaag") = Range("herfst_eind") + 3
           
       Case Range("kerst_begin") To Range("kerst_eind")
            Range("datum_vandaag") = Range("kerst_eind") + 3
           
       Case Range("voorjaars_begin") To Range("voorjaars_eind")
            Range("datum_vandaag") = Range("voorjaars_eind") + 3
           
       Case Range("mei_begin") To Range("mei_eind")
            Range("datum_vandaag") = Range("mei_eind") + 3
   End Select
End Sub

whats wrong?