Querying status of file

 Sub Your_Macro()
Select Case IsFileOpened("T:\Mbr.xls")
   Case 1
      Msgbox "File in use! Please try again later": exit sub
   Case 2
       Msgbox "File Not Found!": Exit sub
End Select

Set wbMbr = Workbooks.Open("T:\Mbr.xls", 3, False)) 

'rest of our code....

end sub

Function IsFileOpened(StrFilePath As String) As Integer
    Dim FileNum As Integer
     
     'First check filepath exists
    If Len(Dir(StrFilePath)) > 0 Then
        FileNum = FreeFile()
        On Error Resume Next
        Open StrFilePath For Input Lock Read As #FileNum  ' Open file and lock it.
        If Err.Number <> 0 Then
            IsFileOpened = 1 'File open
        Else
            IsFileOpened = 0 'File Closed
        End If
        Close FileNum
    Else
        IsFileOpened = 2 'File not found
    End If
     
End Function