Changing a cell's color doesn't trigger Calculation. You could explicitly call calculation at the end of the Double Click event.
Application.Calculate