Do......Loop

[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!!!

 

[Don Guillett]

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.