Hi,
Do you make references to columns AA and above? Is that why the MID option is not working for you? Bob's suggestion is clever.
There have been a few really nice UDFs to do this posted to the board a while ago. I can't think of the thread off hand, though. In any event, here is a quick routine which should do what you'd like. It can be shortened considerably, too.
Also, there are other approaches that work, so let us know if something else is needed.
<pre>Sub test()
Dim ColLetter As String
Dim ColNum As Integer
ColNum = ActiveCell.Column
ColLetter = Left(ActiveSheet.Cells(1, ColNum).Address(False, False), _
(ColNum <= 26) + 2)
MsgBox ColLetter
End Sub</pre>