问VBA宏在第1页上工作，但在第2页上不工作。

EN

 Sub HyperLinkChange()
   Dim oldtext As String
   Dim newtext As String
   Dim h As Hyperlink

   oldtext = "My002vs0026"
   newtext = "my002vs0095"


   For Each h In ActiveSheet.Hyperlinks
   x = InStr(1, h.Address, oldtext)
   If x > 0 Then
       If h.TextToDisplay = h.Address Then
            h.TextToDisplay = newtext
       End If
       h.Address = Application.WorksheetFunction. _
       Substitute(h.Address, oldtext, newtext)
   End If
   Next
End Sub

Option Explicit

Sub ChangeHyperlinks()
    Dim h As Long
    Dim oldDr As String, newDr As String
    oldDr = "\My002vs0026\"
    newDr = "\my002vs0095\"

    With Worksheets("Sheet1")
            For h = 1 To .Hyperlinks.Count
            With .Hyperlinks(h)
                'Debug.Print .Address
                .Address = Replace(.Address, oldDr, newDr, 1, -1,     vbTextCompare)
                'Debug.Print .Address
            End With
        Next h
    End With
End Sub