try opening a new application

From

Workbooks.Open Projekt_Folder & CurrentFile, , True


To

Dim NewApp As Excel.Application
Set NewApp = CreateObject("Excel.application")
NewApp.Workbooks.Open Filename:=Projekt_Folder & CurrentFile
ThisWorkbook.Close savechanges:=False


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=181710

Microsoft Office Help