名前がテキストボックスにリストされているテーブルを選択するコード

Question

私は1つのテキストボックスを持つuserformを持っています。私のワークシートにはいくつかのテーブルがあります。私が望むのは、私がuserformを実行して、その中にテーブルのテーブルを入力するときです。submitを押すと、そのテーブルの名前がテキストボックスに入力され、そのテーブルのセルが選択されます。これまで私は初心者ですので、このコードを書いています。

Private Sub CommandButton2_Click() 

'Unprotect the Worksheet 
Sheets("Control Heads").Unprotect Password:="google" 

Dim ws1 As Worksheet, tbl As ListObjects, row As ListRow 

Set ws1 = Sheets("Control Heads") 
Set tbl = ws1.ListObjects("Me.TextBox2.Value") 
Set row = tbl.ListRows.Add 

End Sub 

コードをよく読んで、間違っている箇所を教えてください。あなたが設定され `worksheet`をつもりなら

おかげ

Answer 1

Private Sub CommandButton2_Click() 

'Unprotect the Worksheet 
Sheets("Control Heads").Unprotect Password:="google" 

Dim ws1 As Worksheet, tbl As ListObject, row As ListRow 
'tbl should be dim as ListObject, not ListObjects 

Set ws1 = Sheets("Control Heads") 
Set tbl = ws1.ListObjects(Me.TextBox2.Value) '<-- no quotation mark 
Set row = tbl.ListRows.Add 

End Sub