Vor dem Zugriff auf eine Zelle sollte geprüft werden,
ob nicht evtl. ein Diagramm markiert ist.
Sollte dies der Fall sein, erhalten Sie einen entsprechenden Laufzeitfehler.
Abhilfe schafft die Funktion TypeName:

Sub Zellenzugriff()
    Typ = TypeName(Selection)
    If Typ = "ChartArea" Then
        MsgBox "Es ist ein Diagramm markiert !"
    Else
        '...
    End If
End Sub

Anstelle der Msgbox kann natürlich die Zelle aktiviert werden,
auf die Sie zugreifen möchte.
Sicher - man könnte die Zelle grundsätzlich markieren,
Aber - wirkt das professionell ?