Dim rng as Range
On Error Resume Next
set rng = Application.InputBox("Select a range with your mouse", type:=8)
On Error goto 0
if not rng is nothing then
rng.Select
else
msgbox "You cancelled"
End if

Note that Application.InputBox is not the same as InputBox alone. The
latter is the vba inputbox and the former the Excel inputbox.

--
Regards,
Tom Ogilvy


"Edwin Merced" wrote in message
...
I need to open an uinput box that should ask the user to type in a range.
When the user types the range and clicls a button the range shoud appear
selected. How difficult is this??