der Teufel steckt meistens im Detail.
Ersetze mal folgende Zeile in Deinem Code:
Code: Alles auswählen
For iCount = 0 To objSelections.Count - 1Viel Erfolg.
Jürgen
Moderator: Moderatoren
Code: Alles auswählen
For iCount = 0 To objSelections.Count - 1