title: What is my error is setting this up? This Sub runs perfectly in a different workbook
body: <p>A "Runtime Error 9, Subscript Out of Range" is received on the Set wb1 line.  This similar structure runs fine in a different workbook without error.</p>
  
  <p>My goal is to copy a cell from the Source document into te Destination document.</p>
  
  <pre><code>Sub CopySheetsl()
  
      Dim wb As Workbook, wb1 As Workbook
      Dim LastRow As Long
  
      Set wb = Workbooks("C:\Test\DST.xlsm")
      Set wb1 = Workbooks.Open("C:\Test\Source.xlsx")
  
      wb1.Sheets("SourceNamedSheet").Range("A1") = wb.Sheets("DestinationNamedSheet").Range("A1").Value
  
      wb1.Close
  End Sub
  </code></pre>