Eu nao testei o codigo mas a ideia é basicamente essa
Sub busca()
Dim valor as long
valor = textbox.value
range("A2").select
do while activecell <> ""
if activecell = valor then
activecell.select
exit sub
else
activecell .offset(1,0).select
End if
loop
end sub
Postado : 02/10/2015 3:14 pm