Search word in different workbooks and sheets

[Admin]

Hi k0st4din,

Welcome to ExcelFox!!

Ask the questions one by one.

try this one.

Sub SearchBookss()
    
    Dim Sht     As Worksheet
    
    SearchWord = InputBox("Enter the string to search for")
    For i = 1 To Workbooks.Count
        For Each Sht In Workbooks(i).Worksheets
FindAnother:
            Set WordAddress = Sht.UsedRange.Find(What:=SearchWord, after:=Sht.Cells(1), LookIn:=xlFormulas, lookat:= _
                            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
            If Not WordAddress Is Nothing Then
                If WordAddress.Address = CheckCell Then GoTo NextBook
                If WordAddress.Address = "$A$1" Then CheckCell = WordAddress.Address
                Address = WordAddress.Address
                MsgBox Workbooks(i).Name & Chr(13) & Address
                Sht.Range(Address).Activate
                GoTo FindAnother
            End If
        Next
NextBook:
    Next i
End Sub

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=zHJPliWS9FQ&lc=Ugz39PGfytiMUCmTPTl4AaABAg. 91d_Pbzklsp9zfGbIr8hgW
https://www.youtube.com/watch?v=zHJPliWS9FQ&lc=UgwbcybM8fXnaIK-Y3B4AaABAg.97WIeYeaIeh9zfsJvc21iq
https://www.youtube.com/watch?v=vSjTzhoJFdk&lc=UgzTC8V4jCzDHbmfCHF4AaABAg. 9zaUSUoUUYs9zciSZa959d
https://www.youtube.com/watch?v=vSjTzhoJFdk&lc=UgzTC8V4jCzDHbmfCHF4AaABAg. 9zaUSUoUUYs9zckCo1tvPO
https://www.youtube.com/watch?v=vSjTzhoJFdk&lc=UgwMsgdKKlhr2YPpxXl4AaABAg
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgwTUdEgR4bdt6crKXF4AaABAg. 9xmkXGSciKJ9xonTti2sIx
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgwWw16qBFX39JCRRm54AaABAg. 9xnskBhPnmb9xoq3mGxu_b
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgzgWvzV-kvC4TJ8O414AaABAg.9xnFzCj8HRM9xon1p2ImxO
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgybZfNJd3l4FokX3cV4AaABAg. 9xm_ufqOILb9xooIlv5PLY
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgzgWvzV-kvC4TJ8O414AaABAg.9xnFzCj8HRM9y38bzbSqaG
https://www.youtube.com/watch?v=XQAIYCT4f8Q&lc=UgyWm8nL7syjhiHtpBF4AaABAg. 9xmt8i0IsEr9y3FT9Y9FeM
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA