Es soll der Spaltenbuchstabe einer Spalte, in diesem Beispiel der aktiven Zelle, wider gegeben werden.

 

Public Sub Spaltenbuchstabe()

MsgBox Split(ActiveCell.Columns.Address, "$")(1)

End Sub