Vba 无法按名称选择工作表

我试图将当前工作簿的第一张工作表分配给工作表对象，但出现运行时错误“91”，对象变量或未设置块变量

Sub Test
Dim InSheet as Worksheet
InSheet = ThisWorkbook.Sheets("Sheet1")
End Sub

但是，我能够像这样循环遍历工作表集合

For Each ws in ThisWorkbook.Sheets
Debug.Print ws.Name
Next

板材（“板材1”）或板材（1）不起作用。我做错了什么

任何帮助都将不胜感激。

---

谢谢

假设工作簿有一张名为“Sheet1”的工作表，您只需要使用

设置

，更好的是，如果您知道这是一张工作表，而不是图表工作表，请使用

工作表

：

Sub Test
Dim InSheet as Worksheet
Set InSheet = ThisWorkbook.Worksheets("Sheet1")
End Sub

但您可能会发现，在属性窗口中为工作表指定一个

CodeName

类似于

InSheet

，然后您就可以在代码中引用它，而不管是否有人更改了它的名称，例如：

Sub Test
  Debug.Print InSheet.Name
End Sub