2 Replies Latest reply on Jun 10, 2015 7:52 AM by Willie Roelofs

    Error handler not working

    Willie Roelofs

      Hi,

       

      I've written a function below to check if a file is allready open or not.

       

      Function IsWorkBookOpen(FileName As String) As Boolean

       

        Dim Ret

        

        Dim ff As Long

        ErrNo As Long

       

        ff = FreeFile()

        On Error Resume Next

        Open FileName For Input Lock Read As #ff

        Close ff

        ErrNo = Err

        On Error GoTo 0

        

        Exit Function

        

      '''''''''''''''

      'Error handler'

      '''''''''''''''

        If Err.Number = 0 Then

        IsWorkBookOpen = False

        ElseIf Err.Number = 70 Then

        IsWorkBookOpen = True

        End If

        

        End Function

       

      If it's open I get error number 70 if it's not I get error 0.

      When I run the code and I get to [Open FileName For Input Lock Read As #ff] VBA stops the macro to tell me I have error number 70.

       

      What am I doing wrong?

       

       

      Kind regards,

      Willie