Ralph hat mal wieder völlig recht. Wenn du mehre Befehle ausführen willst darf hinter Then nix stehen und der If-Block muss mit einem End If enden.
Wenn dein Sub-Makro aber nicht mehr macht als nur Zellfarben zurücksetzen kannst du den Einzeiler auch beibehalten und den Call-Befehl rausschmeißen:
Ersetze cell.Select durch cell.Interior.ColorIndex = xlNone und gut ist.
Mr. K.
|