Hi Frank,

The code works great:) Thanks a million!!

Stephen



Frank Kabel wrote:
*Hi
try
Dim wbk As Workbook
Dim old_book as workbook
set old_book=activeworkbook
On Error Resume Next
Set wbk = Workbooks("DATA.xls")
On Error GoTo 0
If wbk Is Nothing Then
Workbooks.Open Filename:= _
"C:\DATA.xls"
old_book.activate
Exit Sub
End If


-----Original Message-----
Hi peoples

I need to make an adjustment to my code. If it opens the
file DATA.xls
it needs to return to the original file (that was already
open). The
original file is different every month.

Dim wbk As Workbook
On Error Resume Next
Set wbk = Workbooks("DATA.xls")
On Error GoTo 0
If wbk Is Nothing Then
Workbooks.Open Filename:= _
"C:\DATA.xls"
Exit Sub
End If


Regards

Stephen


---
Message posted from http://www.ExcelForum.com/

.
*


---
Message posted from http://www.ExcelForum.com/