M
mzjamez
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
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