'// gets Activecell column letter



Sub GetColumnLetter()

Dim MyColumn As String, Here As String

    

'// Get the address of the active cell in the current selection.

Const msg = "The column letters @ "

    

Here = ActiveCell.Address



'// Note Address format is $<columnletter>$<rownumber>,

'// so drop the first character and the characters

'// after the column letter(s).

MyColumn = Mid(Here, InStr(Here, "$") + 1, InStr(2, Here, "$") - 2)

'// Show the result

MsgBox msg & Here & ":= " & MyColumn



End Sub