Pesquisa em mais de uma guia!

[Rsgimenez]

Prezados, sou leigo em VBA mas um grande amante do mesmo. Criei um formulário, e inseri um botão de PESQUISAR no mesmo. Mas não consigo fazer ele localizar em mais de uma guia e caso tenha mais de um dado com o mesmo nome, não consigo achar um código para acrescentar no meu código. Atualmente eu deixei o código que está funcionando apenas na planilha 6, gostaria que essa pesquisa fosse em todas as guias existentes (plan 1, plan 2, plan x, ...) e caso tenha mais de um nome ele me mostrasse o próximo item localizado. Espero que tenha explicado direito. Segue o que eu já consegui criar:

Sub Pesquisar()

Dim Pesquisa As String
Dim Texto As String
Dim ULTIMACELULA As Range
Pesquisa = UserForm2.TextBox1.Text
Planilha6.Select
Set ULTIMACELULA = Planilha6.Range("A100000").End(xlUp)
Planilha6.Range("A1").Select
Texto = ActiveCell.Text
Do While ActiveCell.Row <= ULTIMACELULA.Row
If UCase(Texto) Like UCase("*" & (Pesquisa) & "*") Then
ActiveCell.Select
MsgBox "Localizado!", vbInformation, "VERIFICAÇÃO"
Unload UserForm2
Unload UserForm1

Exit Sub
Else
ActiveCell.Offset(1, 0).Select
Texto = ActiveCell.Text
End If
Loop
MsgBox "Não Localizado!", vbInformation, "VERIFICAÇÃO"
Unload UserForm2
Unload UserForm1

End Sub

[Wagner Morel]

Rsgimenez,

Bom dia!

veja se é assim.

[Rsgimenez]

Caro Wagner, muitíssimo obrigado pela sua ajuda. Era exatamente isso. Grande abraço!

[Rsgimenez]

Wagner notei um probleminha. Ele fica buscando infinitamente. Como parar ?

[Wagner Morel]

Baixei esse mesmo arquivo que te enviei e não ocorreu isso aqui. Nesse arquivo que te enviei, teste um nome e me diga se ocorre e que nome foi esse.