dim rng as Range
on Error resume Next
set rng = Application.Inputbox("Select Range",type:=8)
On Error goto 0
if rng is nothing then
msgbox "failed to choose range, quitting"
exist sub
End if
msgbox "Chose " & rng.Address(0,0,xlA1,true)

--
Regards,
Tom Ogilvy


"SJC" wrote in message
...
Hi,
Is it possible to allow the user to select a range in a workbook other
than
the active one? A RefEdit control doesn't appear to let me do this. I want
to create a procedure that will allow the user to select a range in the
active workbook and compare it to a range they select in another workbook
(again of their own choosing). The purpose is to build an easy to use
utility to identify common entries in two different lists. Any
suggestions?

Thanks,

SJC