title: Macro run on RTD updates
body: <p>My problem is as follows:</p>
  
  <p>I am running a real-time data server with a count-down from 900 to 0. Once the countdown hits 5 i want excel to copy range(B2 to B61) in sheet(RTD_NEWS) and paste it into a new worksheet as values.</p>
  
  <p>The problem is that my macro will not do this automatically when the timeremaining hits 5. If i hit run when the cell is 5 it runs correctly.</p>
  
  <p>I have made 2 macros, where the first needs to be run to do as i want and the second works if i change the cell manually but not with the RTD-links.</p>
  
  <p><strong>The first macro is:</strong></p>
  
  <pre><code>Function Test()
  Dim TimeRemaining As Long
  TimeRemaining = ActiveWorkbook.Sheets("RTD_NEWS").Range("D2")
  If TimeRemaining = 5 Then
  Application.Goto ActiveWorkbook.Sheets("RTD_NEWS").Range("B2", "B61")
  Selection.Copy
  Worksheets.Add
  Application.Goto ActiveSheet.Range("B21")
  ActiveCell.PasteSpecial (xlPasteValues)
  Application.Wait Now + TimeValue("00:00:06")
  End If
  End Function
  </code></pre>
  
  <p><strong>The second macro is:</strong></p>
  
  <pre><code>Sub auto_open()
     ' Run the macro DidCellsChange any time a entry is made in a
     ' cell in Sheet1.
     ThisWorkbook.Worksheets("RTD_NEWS").OnEntry = "DidCellsChange"
  End Sub
  Sub DidCellsChange()
    Dim KeyCells As String
     ' Define which cells should trigger the KeyCellsChanged macro.
     KeyCells = "D2"
     ' If the Activecell is one of the key cells, call the
     ' KeyCellsChanged macro.
     If Not Application.Intersect(ActiveCell, Range(KeyCells)) _
     Is Nothing Then KeyCellsChanged
  End Sub
  Sub KeyCellsChanged()
     Dim Cell As Object
  
      For Each Cell In ActiveWorkbook.Sheets("RTD_NEWS").Range("D2")
     If Cell = "200" Then
  
  Application.Goto ActiveWorkbook.Sheets("RTD_NEWS").Range("B2", "B61")
  Selection.Copy
  Worksheets.Add
  Application.Goto ActiveSheet.Range("B21")
  ActiveCell.PasteSpecial (xlPasteValues)
  Application.Wait Now + TimeValue("00:00:06")
     End If
     Next Cell
  End Sub
  </code></pre>