Hey,

Thank you so much Mark and Tom for your help me thus far.

But I am still facing the same problem

This is the code that I am using:

Sub Test_DB2()
If
IsFileOpen("\\6.193.246.215\Border\Database\CEWAcc essDB2MervynsMexico.xls")
Then
MsgBox "The Database File is currently locked for Editing by
another user."
Range("A1").Select
End
Else
Application.Run ("Export_Data_Completed")
End If
End Sub

Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err
On Error GoTo 0
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
Error errnum
End Select
End Function


Sub Export_Data_Completed()
Sheets("Decision").Select
Sheets("Database").Select
Range("Export_Database").Select
Selection.Copy
Workbooks.Open
filename:="\\6.193.246.215\Border\Database\CEWAcce ssDB2MervynsMexico.xls"
Range("A1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = True
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Welcome").Select
End Sub