title: Open multiple links in Excel with VBA
body: <p>I have the following code that should open multiple links in excel all at once</p>
  
  <pre><code>Sub OpenLink()
      Dim xHyperlink As Hyperlink
      Dim WorkRng As Range
      On Error Resume Next
      xTitleId = "Select Area"
      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
  </code></pre>
  
  <p>Which, however, it is not working and I cannot understand why.</p>
  
  <p>My links are of the form <code>=HYPERLINK("http://example.com"; "Wording")</code> and they work standalone.</p>