Sub copysheet()

Windows("book1.xls").Activate
Workbooks("book3.xls").Worksheets("Mar 07").Copy _
after:=Worksheets("Sheet1")
ActiveSheet.Name = "newsheetname"


End Sub

"srini" wrote:

I use the drilthrough macro posted on MS site for drilling through from
Excel to the cubes and i get
a runtime error1004 when drilling through

Happens only when the xls is put in a IIS Web server virtual directory and
when i try to open it from the browser then it gives an error

After clicking end in the error screen the drill through continues, but it
seems that the code to delete the temporary sheet does not work.

(Delete the temporary sheet Application.DisplayAlerts = False ws.Delete €¦ )

Result: the drill through result is shown twice: once in the sheet: sheet2 ,
once in the sheet Drill Results1

Can somebody help