get column letter

[Bob Phillips]

If you really want the column letter, I think the best way is to use the column index property relative to the ASCII character code. Cap A is 65 so:MsgBox

Chr(ActiveCell.Column + 64)

What about double letters?

Function ColumnLetter(Col As Long)
Dim sColumn As String
    On Error Resume Next
        sColumn = Split(Columns(Col).Address(, False), ":")(1)
    On Error GoTo 0
    ColumnLetter = sColumn
End Function