Macro buscar y eliminar

[foxtre]

Hola a todos, quisiera que me ayuden con un tema:

Necesito un Macro que busque un simbolo, por ejemplo: "(" y luego de encontrarlo y localizar la celda, me pregunte si deseo eliminar la fila o no? Me podrian ayudar. Gracias. Aqui les dejo lo que tengo hasta el momento:

' Esta macro le pide un valor para buscarlo en cada hoja del libro.

' Si encuentra el valor buscado, la rutina pregunta si desea

' continuar la búsqueda.

' Si no encuentra el valor en la hoja, continúa buscando en la

' siguiente hoja.

' Puede cancelar la búsqueda respondiendo que no a la pregunta

' "¿Desea buscar otro valor?: ?" y respondiendo Sí a cancelar la

' búsqueda.

testValue = InputBox("Introduzca el valor a buscar : ")

For x = 1 To ActiveWorkbook.Worksheets.Count

Worksheets(x).Select

Set foundcell = ActiveSheet.Cells.Find(testValue)

If foundcell Is Nothing Then

MsgBox "No se encontró el valor"

Else

MsgBox "El valor se encontró en la celda" & foundcell.Address

Range(foundcell.Address).Select

LookAgain:

response = MsgBox("¿ Desea buscar otro valor en esta hoja?", vbYesNo)

' Si response = 6, entonces no continuará buscando en esta

' hoja

If response = 6 Then

Set foundcell = ActiveSheet.Cells.FindNext(after:=ActiveCell)

If foundcell Is Nothing Then

MsgBox "No se encontró el valor"

Else

MsgBox "El valor se encontró en la celda" & foundcell.Address

Range(foundcell.Address).Select

GoTo LookAgain

End If

End If

If response = 7 Then

response = MsgBox("¿ Desea terminar la búsqueda ? ", vbYesNo)

If response = 6 Then End

GoTo NextSheet

End If

End If

NextSheet:

Next x

MsgBox "La búsqueda ha finalizado"

End Sub