对象不支持错误

Question

我得到的对象不支持下一行的错误（438）

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 <> Sam.Name Then
    Sam.dSheet.Copy after:=whatever.Sheets(whatever.Sheets.Count)
End If

这个宏。我无法找到一个解决方案，因为宏运行到那一点（几乎到了结束）任何帮助表示赞赏！

false

End Sub