このプログラムなんですがsheetにデータを置いて表示できるようにしてありますがsheetに101を

このプログラムなんですがsheetにデータを置いて表示できるようにしてありますがsheetに101をおいてコマンドボタンを押すとエラーになります。対処方法を教えてください。

質問者からの補足コメント

• Private Sub CommandButton1_Click()
  For i = 3 To 1000
  If Trim(ThisWorkbook.Sheets("部員データ").Range("B" & i).Value) = Trim(Me.txt_Staff_No.Value) Then
  Me.Label4.Caption = ThisWorkbook.Sheets("部員データ").Range("C" & i).Value
  Exit For
  End If
  Next
  
  If i >= 1000 Then
  MsgBox "部員Noが違います"
  End If
  
  End Sub

  No.1の回答に寄せられた補足コメントです。 補足日時：2023/02/23 20:27

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/02/23 20:19

こちらで、動作確認してみますので、画像ではなく、テキストで提示していただけませんでしょうか。

No.2 回答者： tatsumaru77 回答日時： 2023/02/23 20:55

こちらでかくにんしました。

テキストボックスに101を入力
シートのB3に101、C3に山田　を設定
コマンドボタン１をクリックすると、ラベルに「山田」が表示されます。
どのようなエラーがでるのでしょうか。