Something like this:

Sub YetAnotherTry()
Dim r1 As Range, r2 As Range
Set r1 = Application.InputBox(prompt:="select copy area", Type:=8)
ady1 = r1.Address

Sheets("Sheet2").Select
Set r2 = Application.InputBox(prompt:="select destination cell", Type:=8)
ady2 = r2.Address

Sheets("sheet1").Select
Range(ady1).Select
Selection.Copy
Sheets("Sheet2").Select
Range(ady2).Select
ActiveSheet.Paste Link:=True
End Sub

--
Gary''s Student - gsnu201004


"pl_hlp" wrote:

Hello:

What I am trying to do is select the cells or range on a sheet that I am
interested in, then paste link on a different sheet. All the selections
should be variable (I mean not be hardcoded).

Thanks,

pl_hlp