用VBA选择工作表中所有包含超链接的单元格

要选择工作表中所有包含超链接的单元格，用定位或查找的方法无法实现。下面的VBA代码可以实现这一目的。
    按Alt+F11，打开VBA编辑器，在“工程”窗口中双击某个工作表，在右侧的代码窗口中输入下列代码：
    Sub SelectHyperlinkCells()
    Dim hHlink As Hyperlink
    Dim rRange As Range
    Dim NotFirstlink As Boolean
    On Error Resume Next
    For Each hHlink In ActiveSheet.Hyperlinks
      If NotFirstlink Then
      Set rRange = Application.Union(rRange, hHlink.Range)
      Else
      Set rRange = hHlink.Range
      NotFirstlink = True
      End If
    Next
    If rRange Is Nothing Then End
    rRange.Select
    End Sub
   
    关闭VBA编辑器返回工作表界面，按Alt+F8打开“宏”对话框，运行“SelectHyperlinkCells”宏即可选择工作表中所有包含超链接的单元格。