The following code basically does a find in the list of
rows and blank the row that matches RemoveEmp. If the
exact text of RemoveEmp cannot be found, nothing happens.

What can be added to the following code so that if the
exact code cannot be found, an error message appears?


'Find RemoveEmp Name in Text and Set values in line equal
to " "
Count = 0
Do While Count < 60
Count = Count + 1
If ActiveSheet.Cells(Count, 1) = RemoveEmp Then
ActiveSheet.Cells(Count, 1).Activate
ActiveCell.EntireRow.Value = ""
End If
Loop

Thanks

SS