Условное форматирование с использованием VBA - код не работает

Question

Я написал следующий код VBA, чтобы перекрасить границы для моей таблицы. Я также написал небольшой тестовый код для применения условного форматирования к ячейкам B11 и B12 на основе значения B84. Если значение B84 = 1, тогда я хочу заполнить желтый цвет в B11 и B12. Но это не работает.

Если это работает, я хочу написать больше условий, например, C11 и C12 будут заполнены желтым цветом, если C84 = 1, и так далее, до R11 и R12 будут заполнены желтым цветом, если R84 = 1.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ReInstateBorders Range("A7:R16,A18:R23")
Application.ScreenUpdating = True
End Sub

Sub ReInstateBorders(theRange)
For Each are In theRange.Areas
  For rw = 1 To are.Rows.Count - 1 Step 2
    For colm = 1 To are.Columns.Count
      are.Cells(rw, colm).Resize(2).BorderAround xlContinuous
    Next colm
  Next rw
Next are
If Sheets("timetable").Range("B84").Value = 1 Then
    Sheets("timetable").Range("B11").Interior.Color = vbYellow
    Sheets("timetable").Range("B12").Interior.Color = vbYellow
End If
End Sub