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/