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" a écrit dans le message de news:
R0Fje.13792$Fv.8489@lakeread01...
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,