Excel VBA CellsからRangeに変換

Question

###実装したいこと
Excel VBAのWorksheet_Changeイベントにて
Target.Columnで現在の列番号（TIME数式を出力する列番号）を取得して、セルにTIME関数を使用した時間計算式を出力することになりました。
Target.Columnで取得した列番号が５とか１５とかの数字になってるかと思いますが、これをAとかZとかIAとかのアルファベットの列番号に変換することはできますでしょうか？

Answer 1

ぱっと思いついた感じだと、
↓の2つ

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox GetAlphabet(Target)
    
    MsgBox GetAlphabet2(Target.Column)
End Sub

Private Function GetAlphabet(ByRef rng As Range) As String
    Dim s As String
    
    s = rng.EntireColumn.Cells(1).Address(False, False)
    GetAlphabet = Left(s, Len(s) - 1)
End Function

Private Function GetAlphabet2(ByRef num As Long) As String
    Dim s As String
    
    Do Until num < 1
        s = Chr(num Mod 26 + 64) & s
        num = num \ 26
    Loop
    GetAlphabet2 = s
End Function

出来るというだけで、速いとか遅いとかはよくわかりません。（たぶん、どっちでもいいと思うけども）
1つ目の関数は、ターゲットの列の1行目のアドレスを取得して、
？？1となるアドレスの1を取り除く
というようなことをしています。

2つ目の関数は、
26で割って行って、余りを文字コードに見立てて文字に変換（Aが65番？なので64を足して微調整）
で26で割った商を、また26で割って余りをまた文字に変換
というのを商が0になるまで繰り返します。
その文字を繋げたら列のアルファベットです。

でも、たぶん、時間を入れるセルを特定したいだけなら、
とりたてて列番号を取得して指定しなくても、

Private Sub Worksheet_Change(ByVal Target As Range)
　　intersect(target.entirerow,me.columns("AI")).value = time
end sub

みたいな感じで行けると思いますが。。。
アルファベットがどんな時に必要なんだろうか。。。。
参考までにどんなコードを書いてるかお教えください。
こちらも勉強なので。

---

追記

あぁぁぁぁ。
これでよかった＾＾；

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Split(Target.Address, "$")(1)
End Sub

Answer 2

下記サイトが参考になりそうです。

【ﾜﾚｺVBA】列番号･列アルファベット文字列の相互変換-高速版