title: VBA Excel - Compile Error - Invalid Use of property
body: <p>I'm brand new, my first script EVER.  So thanks in advance for any help you can offer.</p>
  
  <p>In a few days, I'm going to receive a set of surveys from 200+ affiliates of my company.  The survey data is being collected in individual excel spreadsheets.</p>
  
  <p>I am trying to modify a script I got from a Microsoft website that loops through all spreadsheets and compiles the data to a single spreadsheet.</p>
  
  <p>The error I am getting is:  Compile Error: Invalid Use of Property</p>
  
  <p>Here's my code:</p>
  
  <pre><code>Sub MergeGTISurvey()
      Dim SurveySummary As Worksheet
      Set SurveySummary = Workbooks.Add(xlWBATWorksheet).Worksheets
  
      Dim FolderPath As String
      FolderPath = "C:\Users\dloots\mycompany\testsurveyfolder\"
  
      Dim NRow As Long
      NRow = 1
  
      Dim Filename As String
      Filename = Dir(FolderPath &amp; "*.xl*")
      Do While Filename &lt;&gt; ""
          Dim WorkBk As Workbook
          Set WorkBk = Workbooks.Open(FolderPath &amp; Filename)
          SurveySummary.Range("A" &amp; NRow).Value = Filename
  
          Dim Sheet As Worksheets
          Set Worksheets = Sheet
  
          Dim SourceRange As Range
          Set SourceRange = WorkBk.Worksheets("Network").Range("B4:B16").Select
  
          Dim DestRange As Range
          Set DestRange = SurveySummary.Range("B" &amp; NRow)
          Set DestRange = DestRange.Resize(SourceRange.Rows.Count, SourceRange.Columns.Count)
          DestRange.Value = SourceRange.Value
  
          NRow = NRow + DestRange.Rows.Count
  
          WorkBk.Close savechanges:=False
  
          Filename = Dir()
      Loop
  </code></pre>