Easy one..?

[Gromit]

Hi
Anyone know the slickest way of returning the letter of the column I'm
in off the top of their heads?

Cheers

G

 

[Don Guillett]

One way is to put this in a regular module and use

Function GetColLet(ColNumber As Integer) As String
GetColLet = Left(Cells(1, ColNumber).Address(False, False), _
1 - (ColNumber > 26))
End Function
another
Sub colltr()
MsgBox Left(ActiveCell.Address(, 0), InStr(ActiveCell.Address(, 0), "$") -
1)
End Sub

or a formula
=LEFT(ADDRESS(1,A1,2),1+(A1>26))

 

[Ron Rosenfeld]

Hi
Anyone know the slickest way of returning the letter of the column I'm
in off the top of their heads?

Cheers

G

=CHAR(COLUMN()+64)

--ron