Ah, I hadn't seen you'd changed the value in A8 mid-macro.

Before you do that change you need to set Application.EnableEvents to True, and then set it back to False after you've changed that cell.

This is really, really terrible coding, and we should do this properly, but it's a hot and stuffy afternoon in my office and I've lost the will to live