Пожалуйста, кто-то может помочь с следующим кодом. это дает мне ошибку в следующей строке:

Set range = "C5:L14"

Это полный код:

Private Sub Worksheet_Change(ByVal Target As Excel.range)
Dim ws As Worksheet
Dim range As Worksheet

Set ws = Application.ActiveSheet
Set range = "C5:L14"

If Not Application.Intersect(Target, range("C5:L14")) Is Nothing Then

    If range("C5:L14").Value = "" Then Exit Sub

    If range("C5:L14").Date = "< today()" Then Exit Sub

    If range("C5:L14").Date = "> today()" Then MsgBox ("Future dates not allowed!")

    Else
        MsgBox ("Please enter date as follows yyyy-mm")
    End If

End Sub

Дата отформатирована как "2013 янв " на клетках. Будущие даты не допускаются, и пользователь должен только ввести дату как "2013-01", Формат должен изменить это правильно. Если они введут "2013 янв " Условное форматирование не подхватывает его. Пробовал ДАННЫЕ ВАЛИДАЦИИ, но это ограничивает меня только одним.

Мне нужен макрос, чтобы убедиться, что пользователь невведите неправильную дату в указанные ячейки.