サンプルマクロは、インプットボックスに入力された列番号から
列見出しを取得します。列番号が列数を超えている場合は、入力さ
れた列番号から列数を引いた列番号の列見出しを取得します。

Sub Sample()

    Dim lngColumn As Long
    Dim strColumn As String
    
    lngColumn = Val(InputBox("列番号を入力してください。"))
    If lngColumn = 0 Then Exit Sub
    
    strColumn = Cells(lngColumn).Address(, False)
    strColumn = Left(strColumn, InStr(strColumn, "$") - 1)
    
    MsgBox strColumn

End Sub