Vba 错误1004工作表函数中没有主题

这在ThisWorkBook页面中，我收到一个错误，无法解决它。

---

请帮助

您假设您正在打开的工作簿是工作簿集合中的第一个工作簿，这可能是错误的。假设您的WKSObjectArea和wksFilter都位于刚刚打开的工作簿中，请更改以下行：

Private Sub Workbook_Open()
Dim wksSubjectArea As Worksheet
Dim wksFilter As Worksheet
Dim strSubArea As String

Set wksSubjectArea = Application.Workbooks(1).Worksheets(3)
Set wksFilter = Application.Workbooks(1).Worksheets(4)

Sheet4.cmbFilter.Clear

wksSubjectArea.Select    -Error Line
wksSubjectArea.Range("F2").Select 

Do Until IsEmpty(ActiveCell)
    strSubArea = ActiveCell
    wksFilter.Select
    Sheet4.cmbFilter.AddItem strSubArea
    wksSubjectArea.Select
    ActiveCell.Offset(1, 0).Select
Loop

Sheet4.cmbFilter.Text = ""

其中包括：

Set wksSubjectArea = Application.Workbooks(1).Worksheets(3)
Set wksFilter = Application.Workbooks(1).Worksheets(4)

此外，但不一定，您可以在错误行中使用.Activate而不是.Select

Set wksSubjectArea = ThisWorkbook.Worksheets(3)
Set wksFilter = ThisWorkbook.Worksheets(4)