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 ?