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