Christian wrote:
That should be

Private Sub Worksheet_Change(ByVal Target As Range)
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"

End Sub

Christian:

I've tried your first suggestion and it works exactly like what I
want
to happen. Have not tired the above, but will.

I thank you so very much for the input. This just shows that I need
to
hit the books and learn a little vba. Again, thank you!!

Jim