Hallo Bernd,

für das "For..." in Zeile 106 fehlt dir auch die "Next" Anweisung.

Gruß
m.artmann