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

I think the Name property is read only for hyperlinks, although I couldn't
confirm that in help. Try changing the Address property instead.

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com

"@lan " wrote in message
...
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

thanks


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

It's ok with Address property
thank you!


Dick Kusleika wrote:
*I think the Name property is read only for hyperlinks, although
couldn't
confirm that in help. Try changing the Address property instead.

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com

"@lan " wrote in message
...
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

thanks


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


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