Vba 1004.Range.Select上的错误

我如何限定以下工作表/范围以使代码不返回

1004范围类的选择方法失败

在最后一行

Sub MarketsBudgetOverviewPDF()

Dim wb1 as Workbook
Dim MarketsBudgetPDFTemplate As Worksheet
Dim TemplateHeader As Range

Set wb1 = ThisWorkbook
Set MarketsBudgetPDFTemplate = wb1.Worksheets("Markets budget overview PDF")
Set TemplateHeader = MarketsBudgetPDFTemplate.Range("A1")

TemplateHeader.Select

End Sub

---

那么以下内容如何：

Sub MarketsBudgetOverviewPDF()
Dim wb1 As Workbook
Dim MarketsBudgetPDFTemplate As Worksheet
Dim TemplateHeader As Range
Set wb1 = ThisWorkbook
Set MarketsBudgetPDFTemplate = wb1.Worksheets("Markets budget overview PDF")
Set TemplateHeader = MarketsBudgetPDFTemplate.Range("A1")

    MarketsBudgetPDFTemplate.Select
    'select the sheet above before selecting the Range below
    TemplateHeader.Select
End Sub

---

那么以下内容如何：

Sub MarketsBudgetOverviewPDF()
Dim wb1 As Workbook
Dim MarketsBudgetPDFTemplate As Worksheet
Dim TemplateHeader As Range
Set wb1 = ThisWorkbook
Set MarketsBudgetPDFTemplate = wb1.Worksheets("Markets budget overview PDF")
Set TemplateHeader = MarketsBudgetPDFTemplate.Range("A1")

    MarketsBudgetPDFTemplate.Select
    'select the sheet above before selecting the Range below
    TemplateHeader.Select
End Sub

---

不必预先选择工作表，您可以使用

Goto

，其结果是在必要时激活工作表，然后选择范围/单元格

Application.Goto TemplateHeader

---

不必预先选择工作表，您可以使用

Goto

，其结果是在必要时激活工作表，然后选择范围/单元格

Application.Goto TemplateHeader