Error if can't find text
 

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

Error if can't find text
 

Do you mean if the text is never found during the entire looping
process? If so, try the amended code:

Dim Found As Boolean
Dim Count As Long
Do While Count < 60
Count = Count + 1
If ActiveSheet.Cells(Count, 1) = RemoveEmp Then
ActiveSheet.Cells(Count, 1).Activate
Found = True
ActiveCell.EntireRow.Value = ""
End If
Loop
If Found = False Then
MsgBox "Not Found"
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"S. S." wrote in message
...
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