Add-in sheet copy 1

[simoncpage]

I have an add-in that has a sheet that I wish to copy to a new activesheet can anyone tell me how to do this?

 

[gcole]

Write click on the Sheet name tab, select move or copy and click the copy box. You can also position your sheet here.

 

[simoncpage]

I want it programmed - so click a button and the sheet in the add-in is copied to the active sheet open....

 

[acron]

Simon,

Try something like :

Dim x As Integer
x = ThisWorkbook.Sheets.Count
Workbooks("AddIn.xla&quot.Sheets("Sheet1&quot.Copy _
After:=ThisWorkbook.Sheets(x)

where AddIn.xla is the name of your AddIn, and Sheet1 is name of the sheet you want to copy. The code will place the copied sheet at the end of the workbook running the code.

A.C.