I have an input box which I use to select a range of cells. Is there any code I can add which will allow the user to select from only 1 column or row at a time. For instance, the user can only select fom A1:A10 not A1:B10 or the user can only select A1:G1 not A1:G2 etc etc.

Here is the simple code that I use for the input box..

Set Range1 = Application.InputBox(prompt:= _
"Select range....", Type:=8)