Use application.inputbox.

dim myRng as range
set myrng = nothing
on error resume next
set myrng = application.inputbox(prompt:="hi there!",type:=8)
on error goto 0

if myrng is nothing then
'user hit cancel
else
'you have a range
end if



Presspley wrote:

(Presspley) wrote in message . com...
It is modal. Showmodal is set to TRUE

Is there an alternative method to sourcing a range from the spreadsheet?

--

Dave Peterson