Private Sub trycopy()
col = 5
Worksheets("Sheet1").cells(1,col).Resize(17,1).Cop y _
Destination:=ActiveCell
End Sub

--
Regards,
Tom Ogilvy

"Tim Coddington" wrote in message
...
I need to copy a column of cells from one sheet to another. Like ...
Private Sub trycopy()
Worksheets("Sheet1").Range("E1:E17").Copy Destination:=ActiveCell
End Sub
The problem is, I only know the column number, not the letter. E = 5.
How can I do the copy using the column number, or alter the number to a
letter?