Hyperlinks.Add does nothing

[itarnak]

hi,

IN VBA
i have copied one sheet in another (copy/pastespecialthe whole sheet with values & formatsi don't want to use the Paste method, only PasteSpecial).
Now i want to copy hypelinks too so i do that:

For Each h In FirstSheet.Hyperlinks
SecondSheet.Hyperlinks.Add(Anchor:=h.Range, Address:=h.Address, TextToDisplay:=Switch(Not IsEmpty(h.TextToDisplay), h.TextToDisplay, IsEmpty(h.TextToDisplay), h.TextToDisplay))
Next h


but the links are not copied: SecondSheet has no links....
In a debugguer, i can see that the loop is running fine, but SecondSheet.HyperLinks.Count is always 0....


What does that mean?

Regards,
iTarnak

[Leith Ross]

Hello Itarnak,

The problem appears to be the Hyperlink address, you are using the cell's address instead of its contents. Change your code to this...

Please Login or Register  to view this content.