Here's a quick example of a way to do that.
Dim InPt$, Book As Workbook
InPt = InputBox("What string are you searching for?")
For Each Book In Application.Workbooks
If InStr(Book.Name, InPt) Then MsgBox "The book's name is " & Book.Name
(Now I'll check John's linked thread just to see it's already been answered.)