Need help with amending code

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