Ячейка/диапазон объекта не поддерживает свойство .Font в VBA

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

run time error 438 object doesn't support property

при попытке просмотреть все данные.

По сути, создание рабочего листа, позволяющего пользователю вводить некоторые данные в состав, а затем, основываясь на некоторых внутренних данных/ограничениях, выдавать ответ о том, что они могут/не могут делать. У меня уже есть уровень проверки ошибок в исходном коде, когда пользователь вводит данные (в основном, чтобы попытаться побудить их убедиться, что данные, которые они вводят, действительны, прежде чем они попытаются запустить расчет), и это отлично работает с использованием подпрограмма Worksheet_Change, которая может перебирать все ячейки по одной (в пределах целевого диапазона), не беспокойтесь.

Если я попытаюсь воспроизвести это (используя именованный диапазон вместо целевых ячеек из функции изменения), он, похоже, сделает одну из двух вещей: он попытается отправить диапазон ячеек, а не отдельные ячейки, и потерпит неудачу, когда он попытается сопоставлять данные из «ячеек», а не из одной ячейки, с которой она должна сопоставляться, ИЛИ она выдаст ошибку 438, когда попытается ее раскрасить.

Private Sub CommandButton1_Click()
    Dim ErrorWagonPack As Boolean, ErrorCellsNotEmpty As Boolean, WagonPack As Integer, cel As Range, Target As Range

    ErrorWagonPack = False
    ErrorCellsNotEmpty = False
    Set Target = Application.Range("ConsistInput")

    For Each cel In Target 'issue is here somewhere I think. It's related to how the cel is created and as such what properties it can have
        Application.EnableEvents = False
        WagonPack = 0
        If Len(cel.Value) > 0 Then
            WagonPack = Application.Index(Application.Range("WagonData"), Application.Match(cel.Value, Application.Range("WagonData").Columns(1), 0), 4)
            If cel.Offset(0, 1).Value Mod WagonPack > 0 Then
                ErrorWagonPack = True
                cel.Font.ColourIndex = RGB(156, 0, 6) '438 error here
                cel.Interior.ColourIndex = RGB(255, 199, 206) '438 error here too
            End If
        End If
    Next cel

If ErrorWagonPack = True Or ErrorCellsNotEmpty = True Then
    Exit Sub
End If

'calculate stuff
Application.EnableEvents = True
End Sub

В идеале я хотел бы добраться до точки, где я запускаю код, окрашиваю ячейки, вызывающие проблемы/неверные данные, а затем, если не выбрасываются какие-либо переменные ошибки, запускаю расчет, но ошибка 438 кажется камнем преткновения. Я почти готов поспорить, что это что-то простое, что мне просто не хватает, но я не могу понять. Вероятно, не помогает, я все еще довольно зеленый с VBA.