Hi Jim

You can dedicate a cell to trigger the search
In this case cell a1 but you can make it any cell you want

For i = 11 To Rows.Count
If Cells(i, 1) = Cells(1, 1) Then
Cells(i, 1).EntireRow.Select
Exit Sub
End If
Next i
MsgBox prompt:="The Case No. could not be found"

Or with an Inputbox triggered by a button


Private Sub CommandButton1_Click()
Dim CaseNo
CaseNo = Application.InputBox("Input Case No")
For i = 11 To Rows.Count
If Cells(i, 1).Text = CaseNo Then
Cells(i, 1).EntireRow.Select
Exit Sub
End If
Next i
MsgBox prompt:="The Case No. could not be found"

End Sub

I hope this answeres your question

Cheers Christian