批量添加超链接

Sub createHyperLinkForSeletion()
'
'将选中单元格创建超链接，链接到单元格内容中名称的表
'
For Each cell In Selection
    ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:= _
        "'" & cell.Value & "'!A1", TextToDisplay:=cell.Value
Next cell
End Sub