Function CheckOpenedWorkbook(file As String) As Boolean
Dim x As Integer
On Error Resume Next
x = FreeFile()
Open file For Input Lock Read As x
Close x
If Err.Number = 0 Then CheckOpenedWorkbook = False
If Err.Number = 70 Then CheckOpenedWorkbook = True
On Error GoTo 0
End Function