View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] prkhan56@gmail.com is offline
external usenet poster
 
Posts: 39
Default Extract Email from a Picture

Hello All,
I am using Office 2003 and I have the following problem.
I have a long list of Contractors which I copy/pasted from the
Internet.
In column C there is a Picture of an "Envelope" which is having a
"mailto: " in the link.

I wish to extract the ' part in Column H for
each row.
I tried the following macro but after Line 2 in the following Macro, I
right clicked and copy the link from the email address and pasted it in
H (which is apparently not recorded in the Macro)

Line 1 - Sub ExtractEmail()
Line 2 - ActiveSheet.Shapes("Picture 794").Select
Line 3 - Range("H377").Select
Line 4 - ActiveSheet.Paste
Line 5 - End Sub

Can this process be automated so that each 'mailto:
'
from all the rows get extracted in the appropriate rows?
I would really appreciated any help or suggestions in this regard
TIA
Rashid Khan