Именование ListObject со строкой переменной

Question

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 

Я отлажена его и tblName именно то, что я хочу, чтобы это было, но когда я пытаюсь установить имя listobject я получаю сообщение об ошибке. Последняя строка дает ошибку, независимо от того, как я ее установил. Что я делаю не так?

Answer 1

Набор столового = ThisWorkbook.ActiveSheet.ListObjects (tblName)