I have a very simple macro below which cuts and pastes contents of one cell,
then deletes a few columns. When running the macro I get the "Code execution
has been interrupted" error. I can simply hit continue and the macro
completes fine. Sometimes it goes all the way through. When it does break,
it's not always at the same point. The macro was recorded using the "Record
New Macro" menu functions and hasn't been altered. Any ideas why this might
happen?

Sub Macro1()
Range("Q8").Select
Selection.Cut
Range("R8").Select
ActiveSheet.Paste
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
End Sub

I have not seen a definitive answer to this problem in the past. Rebooting
the computer, perhaps several times, clears the problem most of the time,
but not always; otherwise you can try shutting the computer off for
**several** minutes before turning it back to see if that resolves the
problem. Worse come to worst, you can put this line of code at the beginning
of your code...

Application.EnableCancelKey = xlDisabled

This seems to stop the problem... effectively, it shuts the Esc key off...
but it might make it impossible to stop your program without using
Ctrl+Alt+Delete to stop your entire Excel session, so remember to back up
your workbook frequently if you plan to use it. Sorry I don't have a better
answer for you.

--
Rick (MVP - Excel)


"shanebgross" wrote in message
...
I have a very simple macro below which cuts and pastes contents of one
cell,
then deletes a few columns. When running the macro I get the "Code
execution
has been interrupted" error. I can simply hit continue and the macro
completes fine. Sometimes it goes all the way through. When it does
break,
it's not always at the same point. The macro was recorded using the
"Record
New Macro" menu functions and hasn't been altered. Any ideas why this
might
happen?

Sub Macro1()
Range("Q8").Select
Selection.Cut
Range("R8").Select
ActiveSheet.Paste
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
End Sub