Dim rng as Range
Dim rng1 as Range
On Error Resume Next
set rng = Application.Inputbox("Select range with mouse", Type:=8)
On Error goto 0
if rng is nothing then exit sub

On Error Resume Next
set rng1 = Application.Inputbox("Select range with mouse", Type:=8)
On Error goto 0

if rng1 is nothing then exit sub
rng.copy Destination:=rng1


--
Regards,
Tom Ogilvy

"PJohnson" wrote in message
news:MHWFd.23510$sf5.14250@lakeread05...
An inputbox is modal also. I just need to user to be able to perhaps
select
or copy or paste something (on the excel sheet itself) before continuing
with the code.


"Bob Phillips" wrote in message
...
Depends on what you want to be able to do, but look at
Application.Inputbox
in VBA Help.

--
HTH

Bob Phillips

"PJohnson" wrote in message
news:FnWFd.23509$sf5.8788@lakeread05...
Is there anyway to display/show a modeless msgbox (vbOKOnly)? I need
the
user to be able to do something before continuing. I guess I am trying
to
avoid a userform. Any help appreciated.

Pete