Possible to call Find & Replace dialogue box within Workbook?

Yes, another homework for you guys. I have found the code to open the "Find and Replace" dialogue box but is it possible to open it with "within:" Workbook instead of Sheet?

This is the code that open up the dialogue box

Sub FineMe()
        Application.CommandBars("Edit").Controls("Find...").Execute
        
End Sub

You know, there are some lazy people that I have to dealt with who can't be bother of clicking on "Workbook" to find what they want.

Thank you in advance