title: Object doesn't support error
body: <p>I am getting the object doesn't support error (438) on the following line</p>
  
  <pre><code>Sam.dSheet.Copy after:=whatever.Sheets(whatever.Sheets.Count)
  </code></pre>
  
  <p>of this macro. I could not find a solution as the macro runs up to that point (which is almost to the end) Any help is appreciated!</p>
  
  <pre><code>Sub SamCopier()
  
  Dim Sam As Workbook, whatever As Workbook
  Dim dSheet As Worksheet, fsheet As Worksheet
  
  Set whatever = ActiveWorkbook
  Set Sam = ThisWorkbook
  
  Set dSheet = Sam.Worksheets("DataSheet")
  Set fsheet = Sam.Worksheets("2015")
  
  MsgBox whatever.Name
  MsgBox Sam.Name
  
  If whatever.Name &lt;&gt; Sam.Name Then
      Sam.dSheet.Copy after:=whatever.Sheets(whatever.Sheets.Count)
  End If
  </code></pre>
  
  <p>End Sub</p>