コードにオブジェクトブロック変数のエラーがあります

Question

私は1つのコンボボックスと2つのテキストボックスとサブミットボタンを持つ小さなユーザーフォームを持っています。

送信ボタンを押している間、私はオブジェクトの変数が設定されていないエラーを取得しています。

Private Sub CommandButton1_Click() 

Dim ws As Worksheet, tbl As ListObject, row As ListRow 

Set ws = Sheets("Create Account Heads") 
Set tbl = ws.ListObjects(Me.TextBox2.Value) 

Dim intValueToFind As String, rng As Range 

Set rng = tbl.ListColumns(1).DataBodyRange  
intValueToFind = LCase(Me.TextBox3.Value) 

If rng <> 0 Then 
    For Each rng In rng 
     If LCase(rng.Value) = intValueToFind Then 
      MsgBox ("Account Head with this Name Already Exists.") 
      Exit Sub 
     End If 
    Next rng 
Else 
    'Unprotect the Worksheet 
    ws.Unprotect Password:="google" 
End if 

End Sub 

i "があれば、> 0 <をRNG" 行でエラーを取得しています：

は、ここに私のコードです。

この問題を克服して解決するよう助けてください。

If rng <> 0 Then 

と：：

おかげ サルマン

Answer 1

があなたのラインコードに置き換え

If Not rng Is Nothing Then