Change macro to paste as last sheet
 

I have a macro that copies the selected sheet and puts it before all of the
other sheets. How can I change it to put the copy after all of the other
sheets (last sheet in the workbook).

ActiveSheet.Copy Befo=Worksheets(1)

after:=worksheets.count

--
Don Guillett
SalesAid Software

"Chance224" wrote in message
...
I have a macro that copies the selected sheet and puts it before all of
the
other sheets. How can I change it to put the copy after all of the other
sheets (last sheet in the workbook).

ActiveSheet.Copy Befo=Worksheets(1)

I think Don meant something more like:
ActiveSheet.Copy After:=Worksheets(worksheets.count)
or
ActiveSheet.Copy After:=Worksheets(sheets.count)



Chance224 wrote:

I have a macro that copies the selected sheet and puts it before all of the
other sheets. How can I change it to put the copy after all of the other
sheets (last sheet in the workbook).

ActiveSheet.Copy Befo=Worksheets(1)

--

Dave Peterson

Change that last one:
ActiveSheet.Copy After:=Worksheets(sheets.count)
to:
ActiveSheet.Copy After:=sheets(sheets.count)

Dave Peterson wrote:

I think Don meant something more like:
ActiveSheet.Copy After:=Worksheets(worksheets.count)
or
ActiveSheet.Copy After:=Worksheets(sheets.count)

Chance224 wrote:

I have a macro that copies the selected sheet and puts it before all of the
other sheets. How can I change it to put the copy after all of the other
sheets (last sheet in the workbook).

ActiveSheet.Copy Befo=Worksheets(1)

--

Dave Peterson

--

Dave Peterson