Looping through Open Workbooks

[sll810]

I want to loop through all of my open workbooks and check to see if a string is within the filename I saved each workbook under. Any ideas?

I tried
for each workbook in xlapp
if workbook.name= strng then
----------
next workbook???

 

[Datsmart]

Take a look at this earlier thread.
http://www.mrexcel.com/board2/viewtopic.php?t=248752

Should answer what you need.

 

[HalfAce]

Hello sll810,
Here's a quick example of a way to do that.

Sub LoopOpenBooksDemo()
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
Next
End Sub

(Now I'll check John's linked thread just to see it's already been answered.)

 

[Datsmart]

Looks like you nailed it HalfAce.

 

[sll810]

Thanks guys that's just what I was looking for. DIdn't know about Instr.