Hi
You may need to adjust the code to suit your needs....
Sub test()
Dim c As Range
With ActiveSheet
For Each c In Selection
If Left(c, 4) = "www." Then
c.Hyperlinks.Add Anchor:=c, Address:="http://" & c.Text
ElseIf Left(c, 7) = "http://" Then
c.Hyperlinks.Add Anchor:=c, Address:=c.Text
End If
Next c
End With
End Sub
--
XL2003
Regards
William
"Thermometer" wrote in message
oups.com...
I have an Excel file with about 200 URLs that have been imported. They
show up as plain text. I can click on each one, choose "Hyperlink,"
and activate each one individually. Any way to do them all at once?
Ralph