schleife solange bis kein Suchergebniss

weiß jemand wie dieses makro aussehn muss damit die schleife nur so oft wiederholt wird bis alle suchergebniss in der tabelle gelöscht sind?

For i = 1 To 1500
Cells.Find(What:="\", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False).Select
Selection.Delete Shift:=xlToLeft

Gruß
Hubert