e-mail links follow up T.Ogivly
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
--
Regards,
Tom Ogilvy
"Don Lloyd" wrote in message
...
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
|