🚀 go-pugleaf

Hello, Please could someone help me, I'm trying to write a code to run through a document and change the file names within each link. So C:\WAS logo.pdf would become C:\CHI logo.pdf. The following script seems to work except it only changes the name on about the first 12 links, and leaves the other 24 unchanged. I think I'm grabbing each link based on it's item number.

      Sub update_links()
      ' update the links and saves as pdf
      Dim linkcount
      Set myInDesign = CreateObject("InDesign.application.2.0")
      myInDesign.Open ("C:\Indesign\template.indd")
      Set myDocument = myInDesign.ActiveDocument
      linkcount = myDocument.Links.Count
      region_code = "CHI"
      ' loop through all of the links
      For linkloop = 1 To linkcount
      ' to fingure out what path it is on
      currentpath = myDocument.Links.Item(linkloop).Path
      ' replace the market code in the PDF
      currentpath = Replace(currentpath, "WAS", region_code)
      ' change the link
      myDocument.Links.Item(linkloop).Relink (currentpath)
      Set idLink = myDocument.Links.ID(linkloop).Update
      Next
      End Sub

Can anyone provide me with suggestions on how to proceed or what I'm doing wrong?
Thank you,
iolaire

PS if the formatting is off on this post I'll edit it on the website ASAP so the code is readable.