12/02/05 02:30:18.27
>>76
> Application.ScreenUpdating = False
> Set _ActiveSheet = ActiveSheet
> Set book = Workbooks.Open(PATH)
> book.Windows(1).Visible = False
> Call _ActiveSheet.Activate()
ActiveWorkbook.Close
> Application.ScreenUpdating = True