使用字符串变量命名listobject

我已经调试了它，tblName正是我想要的，但是当我试图设置listobject的名称时，我得到了一个错误。

---

最后一行给出了一个错误，无论我如何设置它。我做错了什么？

Set table=thiswook.ActiveSheet.ListObjectstblName

无论我是否用Set table=thiswook.ActiveSheet.ListObjectstblName替换了最后一行，您都应该回答自己的问题，并将其设置为已接受的答案@TroyPickens很好，你写了答案，现在请接受它作为正确的答案，并澄清这个问题。谢谢

Sub ShowHideTable()
    Dim table As ListObject
    Dim tblTrngl As Shape
    Dim tblName As String

Call Shape_Clicked(tblTrngl)
Let tblName = tblTrngl.Name
tblName = Replace(tblName, "Trngl", "")
Let table.Name = tblName