Try

With Range("A1")
If .Hyperlinks.Count 0 Then
Range("b1").Value = .Text
End If
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"Scott" wrote in message
...
sI would like to take the hyperlink address from one cell that has a
hyperlink associated with it and paste the hyperlink address as a string
into
another cell. In otherwords if cell A1 has a hyperlink assigned to it of
http://googgle.com, then paste that as a string in cell B2. Is this
possible?