Move a worksheet position
 

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

Move a worksheet position
 

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

"Jimbob" wrote:

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

Move a worksheet position
 

Hi

Look at this:

Sheets(1).Move Befo=Sheets(Sheets.Count)
Sheets("Sheet1").Copy Befo=Sheets(Sheets.Count)

Regards,
Per

"Jimbob" skrev i meddelelsen
...
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

Move a worksheet position
 

Terrific.
Thanks to you both.


"Per Jessen" wrote:

Hi

Look at this:

Sheets(1).Move Befo=Sheets(Sheets.Count)
Sheets("Sheet1").Copy Befo=Sheets(Sheets.Count)

Regards,
Per

"Jimbob" skrev i meddelelsen
...
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