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