If you change the GetNextTarget to the following code, it works just fine. EDIT: I was tired an not thinking straight the first time, this fix is both simpler and more effective. It will now go for the closest mushroom instead of all the reds then all the blues. Sub GetNextTarget /declare BlueDistan...