Hallo Tomi,
ausführbarer Code gehört ausschließlich in eine Sub oder Function. Außerhalb von Subs dürfen nur Dimensionierungen, Declares usw. und VBA-Schalter stehen.
Außerdem hast Du einen Teil des Codes doppelt sowohl innerhalb als auch außerhalb der Sub stehen.
Entferne alles, was vor Sub.... steht.
Gruß
Karl-Heinz
|