In a procedure, call this function.
Function GetColLet(ColNumber As Integer) As String
GetColLet = Left(Cells(1, ColNumber).Address(False, False), _
1 - (ColNumber > 26))
End Function
Sub test()
MsgBox "this is column " & GetColLet(ActiveCell.Column)
End Sub
Gord Dibben MS Excel MVP