Hi All,

Any error with the codes below? The input box is correctly popped up but
nothing or some other text is pasted.

Sub NewCopy()

Set CopyFrom = Application.InputBox(prompt:="Copy FROM?", Type:=8)
Range(CopyFrom).Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll, operation:=xlNone

End Sub


Thanks in advance!

pwz

CopyFrom is already a range. So you don't surround it with range().

copyfrom.copy
activecell.pastespecial ....



pwz wrote:

Hi All,

Any error with the codes below? The input box is correctly popped up but
nothing or some other text is pasted.

Sub NewCopy()

Set CopyFrom = Application.InputBox(prompt:="Copy FROM?", Type:=8)
Range(CopyFrom).Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll, operation:=xlNone

End Sub

Thanks in advance!

pwz

--

Dave Peterson

In fact, you may want to allow the user to cancel the selection:

Sub NewCopy()
dim CopyFrom as range

set copyfrom = nothing
on error resume next
Set CopyFrom = Application.InputBox(prompt:="Copy FROM?", Type:=8)
on error goto 0

if copyfrom is nothing then
exit sub 'or something else??
end if

CopyFrom.Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll, operation:=xlNone

End Sub

pwz wrote:

Hi All,

Any error with the codes below? The input box is correctly popped up but
nothing or some other text is pasted.

Sub NewCopy()

Set CopyFrom = Application.InputBox(prompt:="Copy FROM?", Type:=8)
Range(CopyFrom).Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll, operation:=xlNone

End Sub

Thanks in advance!

pwz

--

Dave Peterson

Dear Dave,

Great thanks to your additional suggestion! The codes work excellently.

"Dave Peterson" wrote in message
...
In fact, you may want to allow the user to cancel the selection:

Sub NewCopy()
dim CopyFrom as range

set copyfrom = nothing
on error resume next
Set CopyFrom = Application.InputBox(prompt:="Copy FROM?", Type:=8)
on error goto 0

if copyfrom is nothing then
exit sub 'or something else??
end if

CopyFrom.Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll, operation:=xlNone

End Sub

pwz wrote:

Hi All,

Any error with the codes below? The input box is correctly popped up but
nothing or some other text is pasted.

Sub NewCopy()

Set CopyFrom = Application.InputBox(prompt:="Copy FROM?", Type:=8)
Range(CopyFrom).Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll, operation:=xlNone

End Sub

Thanks in advance!

pwz

--

Dave Peterson