Dim rng as Range
On Error Resume Next
set rng = Application.InputBox("Select Destination with mouse", type:=8)
On Error goto 0
if not rng is nothing then
selection.Copy Destination:=rng(1)
Else
msgbox "You hit cancel"
End if

--
Regards,
Tom Ogilvy

"Rusty" wrote in message
om...
I need to write a macro to copy data from one cell, then prompt me for
what cell to paste it in. Please help!