I have the following code and everytime I run it I get a debugger message
that says the code is interrupted. I'm not sure how to correct this. Can
anyone help?

Sub COPY()
'
' COPY macro
'

'select area and clear
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'select area and copy
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.COPY
'select area and paste special values
Range("C6").Select
ActiveWindow.SmallScroll Down:=-12
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'select area and copy
Range("A1").Select
Application.CutCopyMode = False
Selection.COPY
'select area and paste special values multiply
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

Look a few posts previous to yours, titled "Alien Abduction of VB: Code
execution has been interrupted". It's about the same problem.

Paul

"mzjamez" wrote:

I have the following code and everytime I run it I get a debugger message
that says the code is interrupted. I'm not sure how to correct this. Can
anyone help?

Sub COPY()
'
' COPY macro
'

'select area and clear
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'select area and copy
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.COPY
'select area and paste special values
Range("C6").Select
ActiveWindow.SmallScroll Down:=-12
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'select area and copy
Range("A1").Select
Application.CutCopyMode = False
Selection.COPY
'select area and paste special values multiply
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

I'm having the same problem and there was never anything installed to cause
this to start happening.

What is really happening and what can fix this bug?



"Paul B." wrote:

Look a few posts previous to yours, titled "Alien Abduction of VB: Code
execution has been interrupted". It's about the same problem.

Paul

"mzjamez" wrote:

I have the following code and everytime I run it I get a debugger message
that says the code is interrupted. I'm not sure how to correct this. Can
anyone help?

Sub COPY()
'
' COPY macro
'

'select area and clear
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'select area and copy
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.COPY
'select area and paste special values
Range("C6").Select
ActiveWindow.SmallScroll Down:=-12
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'select area and copy
Range("A1").Select
Application.CutCopyMode = False
Selection.COPY
'select area and paste special values multiply
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub