For
x = 2
To
.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If
.Cells(x, 1).Value <>
""
Then
linkTarget = Trim(.Cells(x, N_Link_1).Value2)
For
w = 2
To
feedsheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
linkFeed = Trim(feedsheet.Cells(w, link_2).Value2)
If
LinkSource = linkTarget
Then