Dear all,

Is there a simple way in VBA to get the character representation of specific
column? For example, activesheet.cells(1, 2) = row = 1, column = "B" I guess
using chr(activesheet.cells(1, 2).column + 64) could do the job from "A" to
"Z". How about "AA"...?

Thanks in advance!

================================================== =
' Jun 08, 2002 - Created - Thanks to Chip Pearson
' Jim Cone - San Francisco, USA
' Returns the address of the column from the provided column number.
'================================================= ==
Function GetColumnLetters(ByVal ColumnNum As Long) As String
On Error GoTo NoColumn
Dim ColChars As String
ColChars = Columns(ColumnNum).Address(False, False)
GetColumnLetters = Left$(ColChars, 2 + CBool(ColumnNum < 27)) '2 + 0 or 2 + (-1)
Exit Function

NoColumn:
Beep
GetColumnLetters = vbNullString
End Function
'================================================= ==



"KS Wong" wrote in message
...
Dear all,

Is there a simple way in VBA to get the character representation of specific
column? For example, activesheet.cells(1, 2) = row = 1, column = "B" I guess
using chr(activesheet.cells(1, 2).column + 64) could do the job from "A" to
"Z". How about "AA"...?

Thanks in advance!

Thanks a lot, Jim

"Jim Cone" wrote:

================================================== =
' Jun 08, 2002 - Created - Thanks to Chip Pearson
' Jim Cone - San Francisco, USA
' Returns the address of the column from the provided column number.
'================================================= ==
Function GetColumnLetters(ByVal ColumnNum As Long) As String
On Error GoTo NoColumn
Dim ColChars As String
ColChars = Columns(ColumnNum).Address(False, False)
GetColumnLetters = Left$(ColChars, 2 + CBool(ColumnNum < 27)) '2 + 0 or 2 + (-1)
Exit Function

NoColumn:
Beep
GetColumnLetters = vbNullString
End Function
'================================================= ==



"KS Wong" wrote in message
...
Dear all,

Is there a simple way in VBA to get the character representation of specific
column? For example, activesheet.cells(1, 2) = row = 1, column = "B" I guess
using chr(activesheet.cells(1, 2).column + 64) could do the job from "A" to
"Z". How about "AA"...?

Thanks in advance!