vba - ListObject テーブルの列に名前を付けて、すべてのシートのインデックス リストを作成します。

Question

表の列に名前を付けたすべてのシートのインデックス リストを作成したいと考えています。

これまでのところ、以下のコードを作成しましたが、引用された行でエラーが発生します。

Dim ws As Worksheet, tbl As ListObject, i As Integer
Set ws = Sheets("Profile Management")
Set tbl = ws.ListObjects("sheets")
With tbl.ListRows
Do While .Count >= 1
.Item(1).Delete
Loop
End With

For i = 1 To Sheets.Count
"tbl.ListColumns(1).DataBodyRange = Sheets(i).Name"
Next I

どこが間違っているのですか？