vielleicht der fehlende Abstand bei "If Y > 600Then". Wo gibst du denn Y aus?