Ayuda Excel y Vb

[Dark_Guey]

Hola a todos, he encontrado este foro gracias a mis necesidades de aprender rapidamente Vb y excel :P

les cuento que tengo que entregar un trabajo para mañana ...
y por primera vez en mi vida abri excel el hace 4 dias xD
bueno, hasta el momento no habia tenido problemas... salvo ahora...
se que aqui hay gente que sabe mucho (me he dado cuenta leyendo sus respuestas :D) y me gustaria saber si es que me pueden ayudar

les cuento , tengo un problema especificamente con el trozo de codigo de busqueda (al menos asi me dice VB):

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


' en What:=TextBox1, he reemplazado Textbox1 por TextBox1.text , con variables, con palabras directas, etc...

lo que supuestamente hago es buscar en al hoja si es que existe alguna coisidencia (busco nombre de un usuario, el nombre lo tomo de un txtbox de un formulario) y si la encuentra le digo al usuario que no es necesario ingresar nuevamente a ese usuario por que ya se encuentra en los registros, esto funciona muy bien cuando lo encuentra... pero cuando no encuentra coincidencias... me arroja el siguiente error : Runtime error '91' : Object variable or With Block variable is not set

he revisado varias cosas, declaracion de variables,si esta realizando la busqueda,errores de sintaxis, etc... pero nada...

disculpen si es que mi pregunta es muy basica o tiene una resolucion simple, pero a mi realmente me esta volviendo loco, he tenido que aprender mucho en muy poco tiempo, asi que mi dominio no es el mejor .

otra pregunta, aun no termino de entender si es que ese codigo (el de busqueda) retorna un valor o no (booleano)...


aqui va el ppio. del codigo:

Private Sub CommandButton1_Click()

Sheets("Dotacion").Select
Range("a1").Select




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


If ActiveCell.Text <> TextBox1.Text Then

Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select

Loop
' luego aqui comienzo a ingresar (codigo que no coloque por que ya esta probado)


muchas gracias de antemano, si escribi mal mi pregunta es solo por que no se de que trata el error y no se que sector del codigo les puede ayudar mas, me limite a esto por que supuestamente en el principio hago la busqueda y automaticamente me arroja el error... (pienso que no deberia influir el resto del codigo para este error) , en el caso de que alguien para responder mi pregunta necesite mas codigo , me dice, si quiere le entrego todo el codigo :D

adiós