Hallo guys,

I have a worksheet with two tables. One empty visible table and one
hidden table with shapes. I have created a function in a modul for
adding a third sheet. Code:
Call ThisWorkbook.Worksheets.Add(,
ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.co unt))

This works fine.
Now I save the XLS as an AddIn file (XLA) and call the function from a
Powerpoint macro and it fails. I can step through the source code with
F8, this works:
msgbox ThisWorkbook.Worksheets.count
The msgbox show a 2.
If I call "worksheet.add" the execution aborts and next time I'm out of
Excel and back in Powerpoint again. "on error resume next" statements
are ignored.

What ist the problem? All readOnly propertys are set to false.