技術いろいろ @ ウィキ

ハイパーリンク一括有効

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

[Amazon商品]