如何解决在隐藏的工作簿上选择范围的问题？

Question

我正在尝试使用GetObject命令打开的隐藏工作簿中选择范围，并根据某些条件自动填充范围。

但是我得到

  

运行时错误1004选择类范围的方法失败。

怎么了？

GetObject (WbDb)

Dim Database As Worksheet
Set Database = Workbooks("DATABASE").Worksheets("DATASHEET")

With Database
    Dim NextRow As Long
    NextRow = Database.Cells(Database.Rows.Count, 3).End(xlUp).Offset(1, 0).Row

    If Database.Range("B4").Value = "" And Database.Range("C4").Value = "" Then
        NextRow = NextRow - 1
    End If

    MyForm.Range("DATE").Copy
    Database.Cells(NextRow, 3).PasteSpecial Paste:=xlPasteValues

    If NextRow > 4 Then
        Database.Activate
        Database.Select
        Database.Range("B4").Select
        Selection.AutoFill Destination:=Range("B4:B" & NextRow)
    End If

我是VBA的新手，因此请不要严格判断。