Excel - Macro con Find e interfaz

Hola, estoy tratando de usar una interfaz grafica para que, con un Find me traiga los resultados que coincidan con una palabra de un cuadro de texto y los agregue a un listbox, pero al intentar hacer el fin me saca el error:

Object variable or With block variable not set

Aqui pego un fragmento del codigo,

busqueda = TextBox1.Value

Cells.Find(What:=CStr(busqueda), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

ojala tengan algun consejo, si necesitan que lo aclare mas con gusto lo hare.

Muchas gracias

Suponiendo un userform con un boton, un textbox y un listbox:

Private Sub CommandButton1_Click()

Dim strvalorbuscado$, strprimerrango$
strvalorbuscado$ = TextBox1

[A1].Select

[A:A].Find(What:=strvalorbuscado$, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

ListBox1.AddItem ActiveCell

strvalorbuscado$ = ActiveCell.Address

Cells.FindNext(After:=ActiveCell).Select

Do While ActiveCell.Address <> strvalorbuscado$
ListBox1.AddItem ActiveCell
Cells.FindNext(After:=ActiveCell).Select
Loop

End Sub

Abraham

PD: Obviamente se puede mejorar ;)

Agradezco mucho tu ayuda pero tengo el mismo problema usando tu codigo, al llegar a la parte donde aplicas el find, el programa me marca el error de Run-Time 91, el mismo que en un principio.

Alguna idea de a que se debe ese error o como corregirlo?

Saludos

Pues simplemente no ha encontrado valores que coincidan con la buscqueda!!!!!

Private Sub CommandButton1_Click()

On Errro Goto Noencontro

Dim strvalorbuscado$, strprimerrango$
strvalorbuscado$ = TextBox1

[A1].Select

[A:A].Find(What:=strvalorbuscado$, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select

ListBox1.AddItem ActiveCell

strvalorbuscado$ = ActiveCell.Address

Cells.FindNext(After:=ActiveCell).Select

Do While ActiveCell.Address <> strvalorbuscado$
ListBox1.AddItem ActiveCell
Cells.FindNext(After:=ActiveCell).Select
Loop

Exit Sub

Noencontro:

Msgbox "No se encontro nada"

End Sub

Abraham

Te lo agradezco mucho Abraham pero no creo que sea ese el problema, pues como indicaba el error, ademas de seguir apareciendo con el nuevo codigo que me indicas, hace alusion a algun objeto que no fue declarado, dentro de lo poco que entiendo del mensaje de error. Aqui lo escribo de nuevo:

Run-Time error : 91
Object Variable or With block variable not set.

Agradecere si me puedes ayudar una ves mas.

Saludos

Mira, hagamos una cosa, yo voy a estar en internet una hora mas, porque no me lo envias a mi correo:

[email protected]

Abraham

Hola, te lo agradesco mucho, pero no vi antes tu mensaje, se llevaron esa laptop por el fin de semana, si aun estas dispuesto te lo puedo enviar el lunes por la mañana. Te lo agradeceria mucho.

Saludos

Listo, el lunes entonces

Abraham