Do......Loop

  • Thread starter Thread starter Benoit
  • Start date Start date
B

Benoit

Hello,

I'm using the following macro:

Do
Cells.Find(What:="testbed", After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False).Activate
Selection.ClearContents
Cells.FindNext(After:=ActiveCell).Activate
Loop

What can I add to this macro to tell it that when it finds
an empty cell, to stop the macro...

Thanks!!!
 
Wouldn't it be faster to just use autofilter and delete all at once. Record
and alter to suit.
OR
use FINDNEXT to be faster.
 
Back
Top