Hallo,
da habe ich 35 verschiedene Sachen probiert dabei kann das Leben so einfach sein:
Dim Anzahl As Long Anzahl = Selection.Count
Alles wird gut Ulli