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", "")
End Function
=CHAR(COLUMN(C3)+64)