Copying a Worksheet from an AddIn into an empty Workbook

[=?ISO-8859-1?Q?Manuel_J=F6rges?=]

Hi,

I have a Worksheet in an AddIn. I want to copy this Sheet into a new,
empty Workbook.
I do this with the following Code:
Application.ThisWorkbook.Worksheets("Sheet1").Copy _
Before := ActiveWorkbook.Sheets("Sheet3")

The Problem is, that all Links in the new Workbook are changed from
='Sheet3!B17' to ='[AddIn.xla]Sheet3!B17'
Is there any possibility to prevent Excel to convert the Links?

Any Help will be gladly appreciate,

Manuel

 

[Jim Rech]

After you copy the sheet use the ChangeLink method to fix the links.