title: Message navigates to websites provided by cell value
body: <p>I have a workbook that gathers data through SQL queries from a database that displays on a website. The queries gather data that is present and displays in a table which provide URL and time posted (these are columns: URL and Time), with this information I have a cell (B25 B28 and others), which uses a =countif formula to gather all the items that are in the table and which ones are past a certain time. </p>
  
  <p>Example:</p>
  
  <pre><code>=COUNTIFS(table_name[URL Column Name],"Items underneath said Column",table_name[Time Column],"&gt;"&amp;NOW()-0.167)
  </code></pre>
  
  <p>I'm trying to create a VBA script in the worksheet that has this information, launch the URL provided from the cell this formula reads, or display a list if there are more than 1 item over the allotted time. Ultimately I need a message box to display the URL.</p>
  
  <p>So far, I have this as my VBA code:</p>
  
  <pre><code>Private Sub Worksheet_Calculate()
  
      Dim lResponse As Long
      Set ie = CreateObject("InternetExplorer.Application")
  
      Application.EnableEvents = False
  
      If Me.Range("D25, D28, D31, D34, D37").Value &gt; 0 Then
          lResponse = MsgBox("my message for yes or no?", vbQuestion + vbYesNo,     "box title")
          If lResponse = vbYes Then
              ie.Navigate(" &amp; Me.Range &amp;").Value
          Else
              Exit Sub
          End If
      End If
  
      Application.EnableEvents = True
  
  End Sub
  </code></pre>
  
  <p>Thanks in Advance.</p>