Macro to check if file name with asterisk is open

[Sahak]

Hi all,

My file names start with ABC & some numbers in parentheses: ABC (4877).xls or ABC (9218).xls or ABC (2234).xls est.
From other file I would like to know if any file which name starts with ABC is open
Something like this: ABC*.xls (using asterisk)

 

[pedie]

try

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub chck()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "ABC*.*" Then MsgBox "Open"[/FONT]
[FONT=Courier New]Next wb
End Sub[/FONT]
[FONT=Courier New]

 

[Sahak]

Pedie,

Thank you very much

 

[pedie]

Welcome! hope it worked.

 

[Tobbes]

Does anyone know how to check if a workbook is open based on the value entered into a InputBox?
Like if "Personal.xls" is entered into an InputBox (without quotations) how do I check if that workbook is open at the moment?

 

[pedie]

Just enter the book name and not the entention [like .xls]

[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub chck()[/FONT]
[FONT=Courier New]Dim x As String[/FONT]
[FONT=Courier New]Dim wb As Workbook[/FONT]
[FONT=Courier New]x = InputBox("Please enter the name of the Workbook", "Provide info", "")[/FONT]
[FONT=Courier New]For Each wb In Workbooks[/FONT]
[FONT=Courier New]If wb.Name Like x & "*.*" Then MsgBox "Open"[/FONT]
[FONT=Courier New]Next wb[/FONT]
[FONT=Courier New]End Sub[/FONT]

 

[Tobbes]

Only problem is...I need it to check when multiple workbooks are open and I need code to run as result of the answer, that is; If it isn't open exit the sub, If it is open continue with the sub.
However if the first workbook is not the one I'm after but the one I am is open, it will exit the sub after the first result.

 

[Blade Hunter]

No need to poll the workbooks:

Sub CheckIfOpen()
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(InputBox("Please enter the name of the Workbook", "Provide info", ""))
If wb Is Nothing Then
    'Put your code here for when the book is closed
else
    'put your code here for when it is open
end if
End Sub

Even then, it only tests the name of a book, it doesn't actually look to see if a particule book of that name is open. If you have three books with the same name in directories called 1, 2 and 3 on C drive respectively, this will tell you A book is open with that name, it will not tell you if it is the one in a particular DIR that you want.