Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub SearchBook()
Dim ws As Worksheet
Dim sFind As String, sRes As String
Dim Found As Range
sFind = InputBox("FIND WHAT????", "FIND")
For Each ws In ThisWorkbook.Worksheets
Set Found = ws.Cells.Find(sFind)
If Not Found Is Nothing Then
sRes = sFind & " found in worksheet " & ws.Name & " cell " & Found.Address
Exit For
End If
Next
If sRes = "" Then sRes = sFind & " can't be found in this workbook"
MsgBox sRes
End Sub