escuderia,

Não entendi nada... sua planilha está cheia de abas vazias...

Mandei errada... Segue a outra agora !

Ok.

Veja se é assim.

Escuderia, veja se este código atende, ele vai retornar a primeira planilha que tenha a matrícula ou o nome do funcionário.

Sub Busca3D_GT()

Dim strbusca    As String
Dim planilha    As String
Dim rngbusca    As Range
Dim ws          As Worksheet

strbusca = InputBox("Digite o que deseja buscar:")
planilha = "vazio"
For Each ws In Worksheets
    With ws
        Set rngbusca = .Cells.Find(What:=strbusca, _
                        After:=.Cells(1, 1), _
                        LookIn:=xlValues, _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False, _
                        SearchFormat:=False)
        On Error GoTo 0
        If Not rngbusca Is Nothing Then
            planilha = ws.Name
            Exit For
        End If
    End With
Next
If planilha = "vazio" Then
    MsgBox "Funcionário não encontrado."
Else
    MsgBox "O funcionário procurado está na planilha " & planilha & "."
End If
End Sub

Boa Noite gtsalikis e Wagner obrigado mais uma vez pela contribuição, vcs sempre superando as expectativas!

Abraços

Bom dia Wagner,

Fui realizar os devidos teste e constatei que só esta puxando a matricula da linha 5, a 1ª linha abaixo do cabeçalho da planilha... e não puxa o nome do funcionário.... pode me auxiliar ?

Ok.

Veja se é assim.