Dim categorycolumn As Long


categorycolumn = Application.InputBox("Which column do you want select?", "Column", Type:=8).Column

MsgBox categorycolumn