How to check if the user has already opened the file

[ThrottleWorks]

Hi,

I am using below mentioned code to open a file.

How do I check if the user has already opened the file.
If the file is already open then I want to inform user and exit sub.

I do not know how do I check this. Can anyone help me in this please.

Application.EnableEvents = False
        Workbooks.Open shMacro.Range("a1").Value
Application.EnableEvents = True

Set File1 = ActiveWorkbook

 

[Chihiro]

Some thing like this...

Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Name =  shMacro.Range("a1").Value
'Some message box or Else statement goes here
End If
Next

 

[ThrottleWorks]

Hi @Chihiro , thanks a lot for the help. Have a nice day ahead.

 

[Marc L]

Hi !

Other way with IsObject like in this thread …
​

 

[ThrottleWorks]

Hi @Marc L , thanks a lot for the help. Good night.