wang

Sub xxx()
    Dim myFNo      As Long
    Dim myFileName As String
    Dim myErr      As Long
    myFileName = "c:\BOOK2.xls"
    If myFileName = "False" Then Exit Sub
    myFNo = FreeFile
    On Error Resume Next
    Open myFileName For Binary Access Write Lock Write As #myFNo
    Close #myFNo
    myErr = Err.Number
    On Error GoTo 0
    If myErr > 0 Then
       Workbooks("BOOK2.xls").Close
    End If
    '...
    '...
End Sub