title: Collect information from different workbooks that were created after a specific date
body: <p>I'm currently using the following code to collect specific cell contents from a variety of workbooks into a tracking sheet.</p>
  
  <pre><code>Sub CopyRangeValues() 
      Dim basebook As Workbook 
      Dim mybook As Workbook 
      Dim FNames As String 
      Dim rnum As Long 
      Dim y As Variant 
      Application.ScreenUpdating = False 
      ChDrive "D:\" 
      ChDir "D:\" 
      FNames = Dir("Sample-*.xl*") 
      If FNames &lt;&gt; "" Then 
          Set basebook = ThisWorkbook 
          y = InputBox("What column should start getting the values", "Input Row Value", 2) 
          If y = "" Then Exit Sub 'cancel hit
          rnum = Val(y) 
          Do While FNames &lt;&gt; "" 
              Set mybook = Workbooks.Open(FNames) 
              basebook.Worksheets(1).Cells(rnum, 1).Value = mybook.Worksheets(1).Range("D1").Value 
              basebook.Worksheets(1).Cells(rnum, 2).Value = mybook.Worksheets(1).Range("G1").Value 
              basebook.Worksheets(1).Cells(rnum, 3).Value = mybook.Worksheets(1).Range("C5").Value 
              basebook.Worksheets(1).Cells(rnum, 4).Value = mybook.Worksheets(1).Range("C8").Value 
              basebook.Worksheets(1).Cells(rnum, 5).Value = mybook.Worksheets(1).Range("C9").Value 
              mybook.Close False 
              rnum = rnum + 1 
              FNames = Dir() 
          Loop 
      End If 
      Application.ScreenUpdating = True 
  End Sub
  </code></pre>
  
  <p>I'm trying to alter the code so that I after I do the initial collection, when activated it will only collect information from workbooks that have been added since the last time it was run. Since all the workbooks have their creation date in the same cell, I was trying to make that a search criteria. Any help would be appreciated, thanks!</p>