bin zwar kein Spezialist, aber was mir gerade Einfällt währe, Du könntest über "Worksheet_Change" eine Veränderung am Sheet abfragen und dann z.b. mit "ActiveSheet.Shapes("Name des Rechtecks").Select" jedes Rechteck einzeln aufrufen versuchen, wenn eines nicht mehr da ist gibt es einen Fehler, den Fehler Abfangen "On Error GoTo dort_und_dorthin" und da kannst Du dann Dein Event starten.
____________________________________
Internet is voll, GEH WEG !
...a friend in need's a friend indeed, a friend with weed is better...
be a warrior
|