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