Dim rng As Range

Set rng = Application.InputBox("Select a range (any range) on the target
sheet?", Type:=8)
If Not rng Is Nothing Then

Set WS1 = rng.Parent
End If

--
---
HTH

Bob

__________________________________________
UK Cambridge XL Users Conference 29-30 Nov
http://www.exceluserconference.com/UKEUC.html

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Barb Reinhardt" wrote in message
...
I'd like to instruct the user to select a worksheet to work on and then
I'll
identify it as WS1 or WS2. How would I do this?

Thanks,
Barb Reinhardt