VBA代码打开多个选定的超链接

Question

我需要一次在选定的单元格中打开多个链接。仅以下代码的选择部分起作用。单击OKAY时，没有任何反应/在浏览器中没有打开任何超链接。

 Private Sub CommandButton1_Click()

      'Update 20141124
        Dim xHyperlink As Hyperlink
        Dim WorkRng As Range
        On Error Resume Next
        xTitleId = "Openlinks"
       Set WorkRng = Application.Selection
        Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, 
  Type:=8)
        For Each xHyperlink In WorkRng.Hyperlinks
            xHyperlink.Follow
        Next
       End Sub