Boa noite pessoal!
Alguém consegue me auxiliar? Estou apanhando faz um dias já e ainda não consegui.

Segue um arquivo de exemplo parcial e total:

Bom dia,
Pesquisando encontrei o seguinte código:

Private Sub CommandButton1_Click()
  Pesquisar = Plan1.TextBox1.Value
  If Pesquisa = "" Then Exit Sub
  Set plan = Sheets("Nome_da_Planilha") 'DEFINE NOME DA PLANILHA
    Set x = plan.Cells.Find(what:=Pesquisa)
    If Not x Is Nothing Then
      firstAddress = x.Address
      Do
        plan.Select
        x.Select
        MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Planilha: " & plan.Name & _
         Chr(10) & "Texto: " & x.Text
        Set x = plan.Cells.FindNext(x)
      Loop While Not x Is Nothing And x.Address <> firstAddress
    Else
      MsgBox "Texto não encontrado na planilha " & plan.Name
    End If
End Sub

Esse código faz parte do que eu queria, pois só consigo pesquisar em uma guia pré definida.
Não consegui alterar o código pra funcionar em duas ou mais guias específicas.
Agradeço a ajuda!