PESSOAL INICIEI O PROJETO COM BASE EM ALGUMAS COISAS QUE VCS ME ENSINARAM . A PRIMEIRA VEZ ELE EXECUTOU PERFEITAMENTE. PORÉM NA SAEGUNDA ELE NÃO LOCALZIA O PRÓXIMO ARQUIVO

SOLUCIONADO. DEPOIS DE VÁRIAS TENTATIVAS CONSEGUI
ESTE SUB LOCALIZA O DADO DIGITADO NO BOX EM TODOS OS ARQUIVOS NO DIR INDICADO E QUANDO LOCALIZA ABRE O ARQUIVO E NOS DOIS BOX INFORMA O NOME E ABA ONDE ESTÁ O DADO SOLICITADO.
( o dado para localziar não se repete em nenhuma dos arquivos na meu caso .)

Public Sub Procurar_Click()

Dim stNome As String
Dim stPasta As String
Dim stArq As String
Application.ScreenUpdating = False
stPasta = "C:HELOISA" 'NOME DO DIRETORIO
stArq = Dir(stPasta & "*.xl**")

Do Until stArq = ""
stArq = stPasta & stArq
Workbooks.Open Filename:=stArq
If Tlote.Value <> "" Then
Tlote.Text = Empty
If Tcaixa.Value <> "" Then
Tcaixa.Value = Empty
End If
End If
For Each aba In Worksheets
With aba.Cells
Set procu = .Find(What:=Valores.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not procu Is Nothing Then
Tlote.Text = stArq ' TEXT BOX2
Tcaixa.Value = aba.Name 'TEXT BOX3
Exit Sub
End If
End With
Next
ActiveWorkbook.Close SaveChanges:=False 'localzar o local exato do fechar
stArq = Dir()
Loop
MsgBox "TERMINOU A BUSCA"
End Sub