der Teufel steckt meistens im Detail.

Ersetze mal folgende Zeile in Deinem Code:
Code: Alles auswählen
For iCount = 0 To objSelections.Count - 1

Viel Erfolg.
Jürgen
Moderator: Moderatoren
Code: Alles auswählen
For iCount = 0 To objSelections.Count - 1