copy worksheet to another Workbook 1

[smurf01]

Hi,
I want to create a copy of a sheet from workbook and put it into another workbook, this i can do fine however I also want the copied worksheet to be put as the last sheet. I have used a macro and then tried to edit it without much success, i have shown it below.

Sub CopySummary()

    Sheets("Summary").Select
    Sheets("Summary").Copy After:=Workbooks("OTIF_2003.xls").Worksheets(Worksheets.Count)
End Sub

Regards

Paul

 

[SkipVought]

Hi,

Sub CopySummary()
    Sheets("Summary").Copy After:=Workbooks("OTIF_2003.xls").Worksheets(Workbooks("OTIF_2003.xls").Worksheets.Count)
End Sub

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[smurf01]

Skip to the rescue again, thank you



Regards

Paul