Need help with amending code

I have the below code to hide a chart when there is no value in A1. The problem I have is A1 is actually a formula =IF(Sheet1!a2<>"",Sheet1!a2,"")
so it does not work when A1 is "blank". I need the chart to be hidden when the formula generates a blank and visible when the formula generates a value (sheet1 a2).
FYI i have 20 charts with 20 corresponding cells!

Can anyone help me fix the code?

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        Me.ChartObjects("Chart 1").Visible = Range("A1").Value <> ""
    End If
    
End Sub

Hello ea223,

Since the blank is an ambiguous condition indicating the cell may be blank because of the formula result or no formula at all, you can test if the cell has formuila as shown below...

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        Me.ChartObjects("Chart 1").Visible = (Range("A1").Value <> "" And Range("A1").HasFomula)
    End If
    
End Sub