e-mail links follow up T.Ogivly
 

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

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

e-mail links follow up T.Ogivly
 

Thank you, that's perfect

Don

"Tom Ogilvy" wrote in message
...
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