irfan dedrani
New Member
- Joined
- Sep 9, 2022
- Messages
- 6
- Office Version
- 2013
- Platform
- Windows
'add a command button on your Master Sheet referencing this Macro
res = InputBox("Who are you looking for?")
For w = 2 To Worksheets.Count
With Worksheets(w)
Set Rng = .Cells '<< The Entire Sheet is Searched
With Rng
Set MyChoice = .Find(What:=res)
If Not MyChoice Is Nothing Then
Application.Goto MyChoice
MsgBox "Found " & res & " on " & Worksheets(w).Name
Else
MsgBox "Could Not Find " & res & " on " & Worksheets(w).Name
End If
End With
End With
Next w
Worksheets(1).Activate
End Sub
i got this code from mr jim may thread
this works fine for 5 or 6 sheets but not for 30 sheets can i search individually on active sheets only
res = InputBox("Who are you looking for?")
For w = 2 To Worksheets.Count
With Worksheets(w)
Set Rng = .Cells '<< The Entire Sheet is Searched
With Rng
Set MyChoice = .Find(What:=res)
If Not MyChoice Is Nothing Then
Application.Goto MyChoice
MsgBox "Found " & res & " on " & Worksheets(w).Name
Else
MsgBox "Could Not Find " & res & " on " & Worksheets(w).Name
End If
End With
End With
Next w
Worksheets(1).Activate
End Sub
i got this code from mr jim may thread
this works fine for 5 or 6 sheets but not for 30 sheets can i search individually on active sheets only