IF statement is not working as expected?

[Aland2929]

Hi All,
If the "Summary" sheet contains a chart, the chart must be deleted when I click the ViewSummary button. The code below does not achieve this and I can't figure it out? Please help.

Sub ViewSummary()
    Application.ScreenUpdating = False
    Worksheets("Summary").Activate
    If ActiveChart Is Nothing Then
        Range("B2").Select
        Application.ScreenUpdating = True
    Exit Sub
    End If
    ActiveSheet.ChartObjects.Delete
    Range("B2").Select
    Application.ScreenUpdating = True
End Sub

Thank You