A simple copy problem

[Tim Coddington]

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?

 

[Tom Ogilvy]

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

 

[Tim Coddington]

Thanks Tom! Have never used .Resize. This will help in lots of ways!