Perfekt.
Musste nur aus
Set rngCities = .Range(.Range("A1"), rngCities)
Set rngCities = .Range(.Range("A15"), rngCities) machen, weil dort die Liste anfängt.
Super. Vielen Dank
MfG Daniel