mit dem folgenden Code lösche ich alle Objekte im markierten Bereich. Wie liesse sich dieser Code anpassen, so dass die Objekte nicht gelöscht sondern aktiviert werden? Mit objShp.Select habe ich es - leider ohne Erfolg - versucht.
Vielen Dank für Eure Hilfe und ein schönes Osterfest. Gruss Henner
Sub deletShapesInSelection()
Dim objShp As Shape
Dim rng As Range
Set rng = Selection
For Each objShp In ActiveSheet.Shapes
If Not Intersect(objShp.TopLeftCell, rng) Is Nothing Then objShp.Delete
Next
Set rng = Nothing
End Sub