Visual Basic para Aplicaciones - Macro para buscar en excel

Estoy haciendo una macro que busca el texto "(" en una columna de Excel.

Selection.Find(What:="(", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

Selection.FindNext(After:=ActiveCell).Activate

Puedo buscar la primera vez y un numero determinado de veces (pues puedo meter la linea Selection.FindNext...) dentro de un for-next, pero no se come decirle que ha de parar cuando llegue al final.

Si utilizo un for-next por ejemplo

For i = 0 To 100
Selection.FindNext(After:=ActiveCell).Activate
Next i

Cuando hay menos de 100 "(" (y como mi macro los va borrando) me da un error (de tipo 91), pero como tamposo se manejar errores en VBA no me sirve.

Como puedo solucionar el problema de cuando debe parar de buscar??

Muchas gracias de antemano.

La intruccion

Selection.Find(What:="(", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

La puedes convertir en en resultado de una variable

Dim BuscarEn As Range
Dim Buscado As Range

Set BuscarEn = ActiveCell.CurrentRegion

Set Buscado = BuscarEn.Find(What:="(", After:=BuscarEn.Cells(1,1), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)

If Not Buscado Is Nothing Then
'Se encontro la busqueda
'Aqui puedes borrar
Buscado.ClearContens
Else
'No se contro
'Puedes seguir buscando
End If

Puedes usar un ciclo Do...While para controlar hasta cuando termine de buscar

De nuevo, muchas gracias por tu ayuda.