Vor lauter Begeisterung habe ich die erste Antwort total verwurschelt
Das ist die Lösung:
Dim cell As Excel.Range
Dim rng As Excel.Range
und sie funktioniert.
Nochmal Besten Dank !
Arno Keck