Change result of Macro Recorder

[Jim May]

Below produced by Macro Recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/21/2005 by James May
'
Selection.Copy
Range("H17").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

I need to replace the Line Range("H17").Select with a clickable designated
other
cell, not just H17 as was done with the recorder. What do I put in its
place?
TIA,

 

[papou]

Hello Jim
Use Application.InputBox eg:
Selection.Copy
Dim TheRange As Range
Set TheRange = Application.InputBox("Select your range", "Range?", , , , , ,
8)
TheRangePaste.Special Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

HTH
Cordially
Pascal

 

[Jim May]

Pascal:

Thanks for the code; since posting I discovered that perhaps I
could also just eliminate my original first 2 lines of code:

Selection.Copy
Range("H17").Select

and run (new) code after first (at the sheet) Copy, then click on my
destination cell.
Would this be an (OK) alternative?
Tks again..
Jim

 

[papou]

Yes you might as well!

Cordially
Pascal

Pascal:

Thanks for the code; since posting I discovered that perhaps I
could also just eliminate my original first 2 lines of code:

Selection.Copy
Range("H17").Select

and run (new) code after first (at the sheet) Copy, then click on my
destination cell.
Would this be an (OK) alternative?
Tks again..
Jim