Convert email hyperlink

Excel2003-
I have a very long column of email hyperlinks pasted in from a website. They
look like envelope pictures. To change them to text, I have to point to the
envelope, so the cursor changes to a hand, rightclick, edit hyperlink, copy
to adjacent column....
The macro I recorded looks like this:
Keyboard Shortcut: Ctrl+b
'
ActiveSheet.Shapes("Picture 1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Of course, the macro keeps doing its thing on "Picture 1". I'd like it to
convert the whole column. I'm stuck--Any help? And yes, VBA is a foreign
language to me.