The message box is the next line after Application.StatusBar = False, sothere is nothing to stop it being executed. Put in an Exit Sub after thelast line you want to execute.