Error if can't find text

  • Thread starter Thread starter S. S.
  • Start date Start date
S

S. S.

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
 
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
 
Back
Top