Public Function GetColAlpha(lngCol As Long) As String
' Gets column letter(s) given a number
GetColAlpha = Replace$(Replace$(Application.ConvertFormula("R1C" & lngCol, xlR1C1, xlA1, False), "$", ""), "1", "")
just pass it the column number you want and it will work as long as it's a valid column number (i.e. <=256 for Excel 2003 and below).