Este fórum está sendo desativado

[Alex26]

Gostaria de saber se é possível fazer uma pesquisa de um valor na planilha inteira, caso a pesquisa seja verdade, trazer o nome da ABA onde foi encontrada,

Exemplo

Procurar valor 123456

caso achar o valor na planilha inteira, falar o nome da ABA de onde encontrou o valor.

[Foxtri]

Boa tarde.
Segue uma opção

Sub Procurar()
Dim XPlan As Worksheet, Ct
Dim XLocal As Range
For Each XPlan In ThisWorkbook.Worksheets
With XPlan.UsedRange
Set XLocal = .Cells.Find(What:="123456", LookAt:=xlWhole)
If Not XLocal Is Nothing Then
MsgBox (XPlan.Name & " - " & XLocal.Address)
Ct = Ct + 1
Set XLocal = .FindNext(XLocal)
End If
End With
Next
If Ct = 0 Then
MsgBox ("Valor não encontrado nesta planilha")
End If
End Sub

Até
Foxtri