Input Range using mouse

[22strider]

Hello Friends

Could you please help me figure out how to get user select input range using mouse? I have following code in my subroutine; it works for showing the input box where user can type the range. but I am trying to make it user friendly where user can select range using mouse.

Set rRange = Application.InputBox(Prompt:= _
                "Please select cell where the uniques should be listed", _
                Title:="Specify output Range", _
                Type:=8)

Thanks for your time,
Rajesh

 

[shg]

The user just selects a range with the mouse and the address will appear in the box.

 

[22strider]

The problem is; when the input box appears the cursor blinks inside the box only. It won't allow mouse to select anything outside the input box.

 

[22strider]

Ok; figured it out.
In the beginning of my code I was disabling screen updating and then enabling it in the end (I do that as a habit in all my codes) . Apparently that was causing this issue. Now I am not disabling screen updating in my code and am able to select range with mouse (I have no explanation why it is that way but it worked).