Open new excel instance - bug

Hello,

I have a workbook and I want to make it open in a new excel instance.

All subsequent workbooks should also be opened on new excel instances..

I am using this code in the workbook_open event

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open Filename:=ActiveWorkbook.FullName

DO NOT TEST THIS CODE.

It opens the same workbook 100+ times until the computer hungs up.

could someone help ? tapapad