Yes, that should work okay. A suggestion, and a question.

Suggestion. The select is not required, you could use this code

Sub CopyColumn()
Columns("C:C").Copy
Columns("N:N").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False,
Transpose:=False
Application.CutCopyMode = False
End Sub

Question. What will trigger the Copy macro? To reduce your work, you will
want this automated. Do you know about workbook open code, because that is
probably the best place to put it?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Daytrader " wrote in message
...
will this work ?

Sub Copy()
Application.OnTime TimeValue("10:00:00"), "CopyColumn"
End Sub

Sub CopyColumn()
Columns("C:C").Copy
Columns("N:N").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
End Sub


---
Message posted from http://www.ExcelForum.com/