Hi,
could you tell me why the following code cause an execution error?

For Each h In Worksheets(nomfeuille).Hyperlinks
If InStr(h.Name, "test1") < 0 Then
h.Name = Replace(h.Name, "test1", "test2")
End If
Next

thank

--
Message posted from http://www.ExcelForum.com