Tengo un problema en mi macro, ya que se ejecuta solamente al reescribir sobre la celda J23

Quisiera que se ejecute de manera automática al realizar un nuevo cálculo en la hoja, como podria solucionarlo?

Dejo mi código:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Rango As String

    Rango = "J23"

    If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then

        For i = 1 To ActiveSheet.Shapes.Count

            ActiveSheet.Shapes(i).Visible = True

            

        Next i

        

        For i = 1 To ActiveSheet.Shapes.Count

            If ActiveSheet.Shapes(i).Name = Range("J23").Text Then

                ActiveSheet.Shapes(i).Visible = False

                

                Exit For

                

            End If

            

        Next i

        

    End If

Private Sub Worksheet_Calculate()

    Dim Rango As String

    Rango = "J23"

    For i = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(i).Visible = True
    Next i

    For i = 1 To ActiveSheet.Shapes.Count
        If ActiveSheet.Shapes(i).Name = Range(Rango).Text Then
            ActiveSheet.Shapes(i).Visible = False
            Exit For
        End If
    Next i

End Sub

 

Gracias, al usar el evento Worksheet_Calculate()  se calcula de manera automática 😁