'/===============================/
Sub MakeHyperlinks()
'make hyperlinks out of selected cells if possible
Dim rngCell As Range
Dim varAnswer As Variant

On Error Resume Next

For Each rngCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=rngCell, _
Address:=rngCell.Value _
, TextToDisplay:=rngCell.Value
Next rngCell

End Sub
'/===============================/

HTH,
--
Gary Brown



"Thermometer" wrote:

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