Comments on: VBA Routine to return Column Letter of Cell

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Sat, 26 Dec 2009 21:29:52 +0000

@Andyman

Two points… First, you don’t really need the row to be specified as you can use hard code any row number into the Cells property call (I would suggest using 1) since the column letter is not dependent on the row number. Second, you code will return the wrong answer if the column number is greater than 26.

By: Andyman

Andyman — Sat, 19 Dec 2009 12:17:47 +0000

Came up with this not too long ago:

Sub GetColumn(ByVal row As Integer, ByVal col As Integer, ByRef letter As String)
addr = Sheet1.Cells(row, col).Address(False, False)
letter = Left(addr, 1)
End Sub

Called like this:

Call GetColumn(r, c, colLetter)

Doing that stores the column letter in the variable colLetter. Integers can be input for r and c to indicate which cell you are talking about.

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Sun, 13 Dec 2009 03:19:27 +0000

Here is the UDF that I use…

Function ColumnLetter(Cell_Add As Range) As String
ColumnLetter = Split(Cell_Add.Address, “$”)(1)
End Function

By: Marque Hernandez

Marque Hernandez — Tue, 14 Jul 2009 23:29:14 +0000

Thank you Andy Pope! You saved me a whole lotta time and effort! This is exactly what I needed since I can’t write VBA (yet!).

By: Kev

Kev — Thu, 20 Nov 2008 12:08:43 +0000

=LEFT(ADDRESS(ROW(),COLUMN(),4),LEN(ADDRESS(ROW(),COLUMN(),4))-LEN(ROW()))

works fine for me.

By: Andy Pope

Andy Pope — Wed, 05 Nov 2008 16:24:32 +0000

I would use worksheet formula

=SUBSTITUTE(ADDRESS(1,COLUMN(AD12),2),”$1″,”")

Or UDF

Function ColumnLetter(Cell_Add) As String
ColumnLetter = Replace(Cell_Add.EntireColumn.Cells(1).Address(, False), “$1″, “”)
End Function

By: Jon Peltier

Jon Peltier — Tue, 04 Nov 2008 13:55:25 +0000

I did this UDF before I saw Nick’s simple worksheet formula. Both are simpler than the original.

Public Function ColumnLetters(rng As Range)
Dim sAddr As String
Dim sTrim As String

sAddr = rng.Address(True, True, xlA1)
sTrim = Mid(sAddr, 2)
sTrim = Left(sTrim, InStr(sTrim, “$”) – 1)

ColumnLetters = sTrim
End Function

By: Nick Burns

Nick Burns — Tue, 04 Nov 2008 06:37:06 +0000

Couldn’t all that for determining the column letter be reduced to this:

Alpha_Column = Mid(Cell_Add.Address, 2, InStr(2, Cell_Add.Address, “$”) – 2)

By: Stan Scott

Stan Scott — Tue, 04 Nov 2008 05:58:29 +0000

I always use this:

Function Alpha_Column(Cell_Add as Range)
Alpha_Column = Replace(Replace(Cell_Add,”$”,”"),Row(Cell_Add),”")
End Function

Stan