title: Replace part of hyperlink
body: <p>I need to modify a lot of hyperlinks in an .xls workbook. My links are like this: </p>
  
  <p><code>\\\mysrv001\some\path\documents.doc</code> and I need to replace <code>\\\mysrv001</code> with <code>\\\mysrv002</code></p>
  
  <p>I tried something like this, but I get an error: "Object doesn't support this property or method". How do I fix this?</p>
  
  <pre><code>Sub test()
      Dim hLink As Hyperlink
      Dim wSheet As Worksheet
      Dim path As String
  
      For Each wSheet In Worksheets
         For Each hLink In wSheet.Hyperlinks
              path = Right(hLink, Len(hLink) - 11)
              hLink.Address = "\\mysrv003\" &amp; path
          Next hLink
      Next
  End Sub
  </code></pre>
  
  <p>PS: I'm using Office 2000</p>