'узнаем название столбца (например, М )
iColName$ = Split(ActiveCell.Address, "$")( 1 )
iColName$ = Left(ActiveCell.AddressLocal(True, False, xlA1), InStr( 1 , ActiveCell.AddressLocal(True, False, xlA1), "$") -  1 )

'Source: http://bbs.vbstreets.ru/viewtopic.php?t=25342&sid=c54df930f85778ece0a0aa450ea9cc39
Sub Узнаем_имя_столбца_по_его_номеру()
    iColName$ = GetColLetter( 5 )
    MsgBox iColName$
End Sub
Function GetColLetter(ColNum As Integer) As String
    Dim temp As Byte
    If ColNum <  27  Then
        GetColLetter = Chr( 64  + ColNum)
    Else
        temp = Int(ColNum /  26 )
        GetColLetter = Chr( 64  + temp) & Chr( 64  + ColNum - temp *  26 )
    End If
End Function