Hi peoples

I need to make an adjustment to my code. If it opens the file DATA.xl
it needs to return to the original file (that was already open). Th
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

Stephe

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