Select only one column/row in a range

[Rutgers_Excels]

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)

[anilsolipuram]

Paste this macro in sheet where you want cells of only 1 row or one column to be selected.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Rows.Count > 1 And Target.Columns.Count > 1 Then
MsgBox "you can only select cells from one column or one row"
Range("a1").Select
End If
End Sub