Something along these lines
Private Sub CommandButton1_Click()
For Each rw In Range("C2:F21").Rows
  For Each cll In rw.Cells
    If cll.Text = TextBox3.Value Then
      cll.EntireRow.Hidden = False
      Exit For
    End If
  Next cll
Next rw
End Sub