Another way

Dim lngCol As Long

lngCol = 27
Msgbox Split(cells(1,lngCol).address,"$")(1)

--
Jacob


"Farooq Sheri" wrote:

Greetings

Is there a way to map column number to alphabet such column 6 equates to "F"
and column equates to AA.

Thanks