Test If Workbook That Contain String Is Open

[Lewzerrrr]

Hi,

I have a code that opens a workbook, dumps some data into it from primary workbook and runs a code in the secondary workbook. The secondary code has a msgbox in it that needs to be there for different uses.

How can I change the msgbox code to something like:

If workbook is open that contains "Smart Pick" in it's name then don't run msgbox, else if it's not open then run msgbox as normal?

Thanks,

 

[ranman256]

cycle thru the workbooks to find it.
if not found then show msgbox

Dim wb As Workbook
Dim bIsFound As Boolean


For Each wb In Workbooks
  If InStr(wb.Name, "Smart Pick") > 0 Then
      bIsFound = True
      Exit For
   End If
Next
Set wb = Nothing
If Not bIsFound Then MsgBox "not found"