VBA-How to use "Find" property in all workbook

[nader]

I tried this code to find anyword in the workbook but it show result only for sheet active

Cells.Find(What:="Anyword").Active

so I tried this code but didn't success. is there any help ?

Dim wsh As Worksheet
For Each wsh In Workbook
wsh.Cells.Find(What:="Anyword").Activate
Next

 

[cb12]

Perhaps try something like this. This will only find the first occurrence and then exit the procedure

Sub search()
Dim i, j As Integer

i = Worksheets.Count

For j = 1 To i
    Sheets(j).Activate
        If Cells.Find(What:="Text search") Is Nothing = False Then
            Exit Sub
        Else: MsgBox ("Not Found on Sheet " & j)
        End If
Next j

End Sub

 

[nader]

Your code don't work didn't find the word
this code work

Dim wsh As Worksheet
Dim r As Range
For Each wsh In Worksheets
Set r = wsh.Cells.Find(what:="AnyWord")
If Not r Is Nothing Then
wsh.Activate
r.Activate
End If
Next wsh

Thank you for help!

 

[cb12]

I'm not sure why exactly the code didn't work for you, it should work fine to find the first time your word shows up on the spreadsheet. However the code you posted will continue until it finds the last time it is mentioned. Perhaps there in lies the discrepancy.

Glad you've solved your problem.