Try adding DoEvents before the Exit Sub line.