Just curious. Why the line of code "Application.CutCopyMode = False".
Thanks
"JMB" wrote:
Sub test3()
Range("AD3:BF3").Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Just don't select range AD3:BF3, then the activecell will not change.
"Cesar_us" wrote:
I am very new to writing macros and very green.
I have the following macro to copy and paste a column of cells.
Sub copypaste()
'
' copypaste Macro
' Macro recorded 6/22/2005 by
'
' Keyboard Shortcut: Ctrl+q
'
Range("AD3:BF3").Select
Selection.Copy
Range("AD19:BF19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub
In the line [Range("AD19:BF19").Select] is there any way I can get it paste
it in the Active Cell of choice.
Thanks,
Cesar.
|