VBA to make shape appear based on cell value works but wont trigger with count if formula

I am using this formula to make a shape appear:

Private Sub Worksheet_Change(ByVal Target As Range)
    
If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Oval 4").Visible = (Cells(1, 1).Value >= 1)
                If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Zone A").Visible = (Cells(1, 1).Value >= 1)
        
End Sub

It works when I manually input the cell value, but when I use a countif formula to calculate the cell value the VBA won't run. Auto calculate is activated in the options menu.

Please help!