Guru do Excel e Power BI

Srs, possuo o seguinte codigo, hoje ele formata a linha sempre que uma celula daquila linha é selecionada.
Gostaria de colocar uma função para Ativar e Desativar, tipo, se a celula A1 = "Ativado", ai o codigo é ativado e fica funcional, caso contrario fique inativo.
Podem ajudar?

Codigo:
Option Explicit
Public Sub HighlightTableRow(Target As Excel.Range)

Dim t As ListObject
Dim lngInTable As Long
Dim c As Long

Const COLOR_SELECT = 1
Const COLOR_LIGHTER = 0.4

On Error Resume Next

If Target.Interior.Pattern = xlPatternSolid Then Exit Sub

For Each t In Target.Parent.ListObjects
c = c + 1
If Not Intersect(Target, t.DataBodyRange) Is Nothing Then
lngInTable = c
End If
t.Range.Interior.Pattern = xlNone
Next
If lngInTable = 0 Then Exit Sub

With Target.Parent.ListObjects(lngInTable)
With .Range.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With .DataBodyRange
With .Resize(Target.Rows.Count).Offset(Target.Row - .Row).Interior
.ThemeColor = COLOR_SELECT
.TintAndShade = 1 - COLOR_LIGHTER
End With
End With
End With

End Sub

Boa tarde!!

Seria isso? Obs: O código deve ser posto no módulo de planilha.

Fonte:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=145
Att

Se é só para o código não ativar se o conteúdo da célula A1 não for "Ativado", só incluir na primeira linha do seu código: