PDA

View Full Version : Solved: Copy paste special



Audax
04-18-2007, 07:26 AM
Hi Guys
I'm using the macro below for copying and pasting, it works fine, but the cell copied blink waiting for me to press 'enter' or 'esc' to finish the instruction. Is there any instruction or command which I can add to stop the blinking and end the macro?

Sub CopyPaste()
Dim A As Integer
ActiveCell.Copy
Range(ActiveCell.Offset(1), ActiveCell.Offset(1)).Select
ActiveCell.PasteSpecial Paste:=xlFormula
End Sub

Thanks

feathers212
04-18-2007, 09:32 AM
This worked for me:
Sub Macro1()
ActiveCell.Copy
Range(ActiveCell.Offset(1), ActiveCell.Offset(1)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Audax
04-18-2007, 10:51 AM
Thanks Feathers212, it works 100%