"ActiveChart Is Nothing" wird ignoriert

Hallo miteinander,
der folgende Code soll überprüfen, ob ein Chart ausgewählt wurde (und (hier weggelassen) die Chart-ID oder den Chartnamen zurückgeben). Wieso erkennt der folgende Code nicht, wenn der Nutzer das Chart ausgewählt hat und danach den Button drückt?

Sub EditChart()
If ActiveChart Is Nothing Then
MsgBox "Select a chart."
Exit Sub
End If
End Sub

Die Datei https://www.herber.de/bbs/user/105211.xlsm wurde aus Datenschutzgründen gelöscht