Run-time error '1004': Delete method of Range class failed

Hi,

Personally I'd avoid a looping procedure to do this sort of stuff. Using a Data filter is the fastest way I know and far more efficient than a loop.

So set up a horizontal criteria list with your consultant names and name this range say "crit". Put ="<>John Smith" etc. in the second row of the criteria. Name the range you're trying to filter 'Data"

Then something like

Sub Delete
   Range("Data").AdvancedFilter Action:=xlFilterInPlace, criteriarange:=Range("crit")
   Range("Data").Offset(1,0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub