Or just use the top row of any selection:

Set rng = Application.InputBox(prompt:="Select a Row to Work on", _
Type:=8).rows(1)

rng.select

wrote:

Hi,

My sheet has about 30 rows. I want the user to select only one row and
that row gets copied to a new sheet.

The Code to let the user select the row is

Set rng = Application.InputBox(prompt:="Select Column to Work on",
Type:=8)
rng.Select

How do I make sure the sure only one row is selected?

If more than one row is selected I need to display an error message.

Thanks

--

Dave Peterson