Betinget formattering - Chart area

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim VRange As Range
    Dim cell As Range
    Dim ChangedCells As Long
   
    Set VRange = Range("InputRange")
    ChangedCells = 0
    For Each cell In Target
        If Union(cell, VRange).Address = VRange.Address Then
          ChangedCells = ChangedCells + 1
        End If
    Next cell
   
    ChangeFormat
   
End Sub

Private Sub ChangeFormat()

    If Range("C10").Value = "pct" Then
   
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).Select
    Selection.TickLabels.NumberFormat = "0,0%"
    Application.CommandBars("Format Object").Visible = False
   
    Else
   
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlValue).Select
    Selection.TickLabels.NumberFormat = "#.###"
   
    End If

    Range("F3").Select

End Sub