Ошибка приложения или объекта при попытке назначить свойства шрифта

Question

Я получаю сообщение об ошибке при попытке добавить цвет интерьера и свойства шрифта для каждой ячейки; «Ошибка приложения или объекта»

Я использовал код, почти такой же, как этот, и он работал нормально.

        'Loop through cells in calendar and display audit if one exists
        Dim rng As Range: Set rng = Range("A3:G11")
        For Each c In rng
            If Not IsEmpty(c) And IsNumeric(c) Then

                'Construct the file name based on user's input
                fileName = "UV_Audit-" & dirSupervisor & "-" & dirMonth & Format(c, "00") & dirYear & ".xlsm"
                If Dir(path & fileName) <> "" Then
                    With c.Offset(1, 0)
                        .Hyperlinks.Add Anchor:=c.Offset(1, 0), Address:=path & fileName, TextToDisplay:="X"
                        .Interior.Color = RGB(34, 139, 34)
                        .Font.Color = vbBlack
                        .Font.Bold = True
                    End With
                End If
            End If
        Next c

Спасибо

Answer 1

Я понял это. Лист был защищен в предыдущем коде!