Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rCell As Range
For Each rCell In Target
MsgBox "The name is: " & rCell.Name.Name
Next rCell
End Sub
Führt zu: „Anwendungs- oder objektorienbtierter Fehler“.
Die Selektierte Zelle hat definitiv einen Namen.
Auch rCell.Name führt zum selben Fehler. Dabei soillte doch zumindest die Zellen.Adresse ausgegeben werden.
An anderer Stelle hat’s aber schon mal funktioniert?!?