Easy one..?

G

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
 
D

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))
 
Top