Dim sh as worksheet
Dim rng as Range
set sh = Activesheet
On Error Resume next
set rng = Application.InputBox("Where do you want the info (select with
mouse or type in)",type:=8)
On Error goto 0
if not rng is nothing then
sh.Range("A1").Copy Destination:=rng
End Sub

--
Regards,
Tom Ogilvy


"Kate" wrote in message
...
Hi,
I'm setting up a macro that copies information from one
tab in a workbook, and needs to paste it to another tab.
The problem is, I need to set it up so that a pop up
appears asking what cell to paste the data to. Ex:

Copies cells A1

Asks "Where do you want the info?"

User types "C5"

Macro pastes the data to C5.

Any ideas?