How to return address of the column or cell I select, not just return the value?

Thank you so much. However, what if I want to add more status as shown below? When I pressed Cancel or Ok without selecting, error prompt always shows up.

a:      Categorycolumn = Application.InputBox("Which column do you want select?", "Column", Type:=8).Column
    
           Select Case Categorycolumn
        Case False
            Exit Sub
        Case ""
            MsgBox "You have to select!"
            GoTo a
        Case Else
        MsgBox Categorycolumn
        End Select