VBA code behaves differently while stepping?

So...I have this code that works flawlessly when I step into each line manually (pressing the F8 key).

When I create a button and assign the code to the button, I get an error "Code execution has been interrupted" and when I manually press F8 it continues fine....This has never happened before, why this different behavior from the same code?

Thanks,

Hello

Certainly...here it is: There is nothing voodooish about this one, just plain boring copying from FORM sheet into MASTER sheet. I have noticed that when the code interrrupts...it does not consistently interrupt at the same line of code, it seems random and when the line is highlighted by Excel in the code, I press F8 and it carries on....without errors/



Sub NonValue()
'

'Non Valued Inventory
Sheets("Form").Select
Range("A47").Select

Do Until ActiveCell.Value = empty


Sheets("Master").Select
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Offset(0, 11).Range("A1").Select
Sheets("Form").Select
Selection.Copy
Sheets("Master").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Range("A1:G1").Select
Selection.FillRight
ActiveCell.Offset(0, 7).Range("A1").Select
Sheets("Form").Select
ActiveCell.Offset(0, 6).Range("A1").Select
Selection.Copy
Sheets("Master").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Form").Select
ActiveCell.Offset(0, 2).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Master").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Form").Select
ActiveCell.Offset(0, 3).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Master").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Form").Select
ActiveCell.Offset(0, 2).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Master").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, -22).Range("A1").Select
ActiveCell.Range("A1:K1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:K2")
ActiveCell.Offset(2, 0).Range("A1").Select
Range("A1").End(xlDown).Select
Sheets("Form").Select
ActiveCell.Offset(1, -13).Range("A1").Select
Loop


End Sub

Sorry about that...I am still not clear on how to post code....

For example...these 3 lines:
Sheets("Master").Select
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select


How would you present them?
This is for future reference since I found the solution:
At the beginning of the code, input

Application.EnableCancelKey = xlDisabled

That fixed the problem!

Thanks

mhni,

I had the same problem, your line of code did indeed work. I'm just wondering how it started happening in the first place.

Anyway, to "wrap code", just highlight all and only the code to wrap, then press the "#" button in the toolbar, it will wrap the code like this...

Please Login or Register  to view this content.