e-mail links follow up T.Ogivly

[Don Lloyd]

Hi Tom,
Such was my faith, I posted before trying

Dim cell as Range
for each cell in selection
if cell.Hyperlinks.count > 1 then
cell.offset(0,1).Value = cell.hyperlinks(1).Address
end if
Next

Apparently, my cells don't have a Hyperlinks.Count >1
??
regards,
Don

 

[Tom Ogilvy]

1 should have been 0 - my typo

Dim cell as Range
for each cell in selection
if cell.Hyperlinks.count > 0 then
cell.offset(0,1).Value = cell.hyperlinks(1).Address
end if
Next

 

[Don Lloyd]

Thank you, that's perfect

Don

1 should have been 0 - my typo

Dim cell as Range
for each cell in selection
if cell.Hyperlinks.count > 0 then
cell.offset(0,1).Value = cell.hyperlinks(1).Address
end if
Next