Move a worksheet position

[Jimbob]

I have a macro which pastes a worksheet into a 15 sheet workbook. How can I
get the new sheet into the desired poisition (2nd to last) programmatically?

Thanks in advance

 

[joel]

with workbooks("book2.xls")
activesheet.copy _
before:=.sheets(.sheets.count)
end with

 

[Per Jessen]

Hi

Look at this:

Sheets(1).Move Before:=Sheets(Sheets.Count)
Sheets("Sheet1").Copy Before:=Sheets(Sheets.Count)

Regards,
Per

 

[Jimbob]

Terrific.
Thanks to you both.

Hi

Look at this:

Sheets(1).Move Before:=Sheets(Sheets.Count)
Sheets("Sheet1").Copy Before:=Sheets(Sheets.Count)

Regards,
Per