Sub SetHyperlinks() Dim rg As Range If "Range" = TypeName(Application.Selection) Then For Each rg In Application.Selection If Left(rg, 4) = "http" Then rg.Hyperlinks.Add rg, rg.Text, "", "", rg.Text End If Next End If End Sub