in diesen Schnipsel
For Each objName In ThisWorkbook.Names
For i = 100 To 305
If Left(objName.Name, 8) = "A_ber" & i Then
If Not Intersect(Target, Range(objName.Name)) Is Nothing Then
strName = objName.Name
MsgBox strName
GoTo strName
wollte ich mit Hilfe von GoTo strName einbauen, daß nun nach A_berxxx gehüpft wird - diverse im Code vergesehene Sprungmarken. Geht aber nicht :-(
Was muß denn hinter GoTo stehen, damit strName als das interpretiert wird, was in der MsgBox anstandslos angezeigt wird?
Grüße - Jörg