Changing links in a workbook

hi everyone,

I am looking for a macro that updates the 6 links in my workbook.

In Sheets("Start Here").Range("A6:A12") i have the file name of the new files I wish to update my links with AND the new files should be in the same folder as the current workbook. In Range("B6:B12") i have a key word that identifies each of the files. I want to be able to use the key word to identify which of the new files corresponds to the old file of the link it needs to update and update it and move through all 6 files. I am stuck.

I've tried to spec out what i think needs to happen

1. Get the current links
2. Search each link for the 6 key words
3. If the key word matches then find the path of the new file and replace
4. REPEAT

and this what i've come up with - the bit in italics is where its getting stuck - i can seem to get the cell reference that has the file name in to create the path of the new file:

[Code]
Sub ListLinks()

Dim wb As Workbook
Set wb = Application.ActiveWorkbook
Dim Path As String
Path = Application.ActiveWorkbook.Path
Dim rngX

For Each link In wb.LinkSources(xlExcelLinks)
If InStr(link, "Balanced") Then
Set rngX = Sheets("Start Here").Range("B6:B12").Find(What:="Balanced", LookIn:=xlValues, lookat:=xlPart)
wb.ChangeLink Name:=link, NewName:=Path&rngX.Address.Offset(-1, 0), Type:=xlExcelLinks
End If
Next link

End Sub