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