Selecting a column with an integer

[lashio]

Sub ColumnSelection()
' Selecting a column with an integer
' Please show me how to eliminate the use of Cells(1, 1)
Dim r As Integer
Dim c As String
Dim numericcolumn As Integer
Dim alphabetcolumn As String

numericcolumn = 4 ' in practice 4 is the
resultant of an equation
alphabetcolumn = "=CHAR(" & numericcolumn + 64 & ")"
Cells(1, 1) = alphabetcolumn ' I like to eliminate the use of
Cells(1, 1)
c = Cells(1, 1).Value ' I like to eliminate the
use of Cells(1, 1)
Cells(1, 1) = "" ' I like to eliminate
the use of Cells(1, 1)
Columns("" & c & ":" & c & "").Select
End Sub

 

[Jim Cone]

lashio,

Columns(numericcolumn).Select

Jim Cone
San Francisco, USA

Sub ColumnSelection()
' Selecting a column with an integer
' Please show me how to eliminate the use of Cells(1, 1)
Dim r As Integer
Dim c As String
Dim numericcolumn As Integer
Dim alphabetcolumn As String

 

[lashio]

Jim,
Amazing!
Thank you very much.

lashio,

Columns(numericcolumn).Select

Jim Cone
San Francisco, USA