Como este é um site de perguntas de programação, suponho que você queira dizer em VBA.
O ActiveCell
é a célula atualmente marcada (ou intervalo), ActiveCell.Column
lhe dará o número da coluna (coluna mais à esquerda de um intervalo, se a memória me servir corretamente) que você pode usar.
Simplesmente subtraia um e use-o (assumindo que ele não é 1, é claro). Se você quiser a letra da coluna real (você não precisa dela para cálculos, mas pode querer mesmo assim), use:
Function GetCol (ByVal rng As Range)
If rng.Column < 27 Then
GetCol = Chr (64 + rng.Column)
Else
GetCol = _
Chr (64 + (rng.Column - 1) \ 26) + _
Chr (65 + (rng.Column - 1) Mod 26))
End If
End Function
junto com:
Dim colStr as String
colStr = GetCol (ActiveCell)
MsgBox (colStr)
Se essa não é uma pergunta do VBA, ela realmente não pertence aqui (embora eu veja, por um de seus comentários, que você está falando sobre a execução de uma função, então eu acho que você fez significa em VBA depois de tudo).