Jay,

If Sheet X column A has the worksheet names:

Sub MakeJaysLinks()
Dim myCell As Range
On Error Resume Next
For Each myCell In Worksheets("Sheet X"). _
Range("A:A").SpecialCells(xlCellTypeConstants, 2)
Worksheets(myCell.Value).Range("B19").Formula = _
"='Sheet X'!" & Cells(myCell.Row, 2).Address(False, False)
Worksheets(myCell.Value).Range("B20").Formula = _
"='Sheet X'!" & Cells(myCell.Row, 4).Address(False, False)
Next myCell
End Sub

HTH,
Bernie
MS Excel MVP

"jay dean" wrote in message
...


I would need a macro. Any help would be apprecaited. Thanks.

Jay Dean

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!