Find range of column, given column number VBA

Question

How would I find and store a range object for an entire column, given the column number? Thanks!

Answer 1

Use the Columns property

Dim rng as Range
Set rng = ThisWorkbook.Worksheets(1).Columns(12) ' for column 12

Answer 2

How about:

Sub PickAColumn()
   Dim i As Long
   Dim MyColumn As Range
   i = Application.InputBox(Prompt:="Enter Column NUMBER ", Type:=1)
   Set MyColumn = Cells(1, i).EntireColumn

   MyColumn.Select
End Sub