Okay, this is want I want to do. Have a macro that will make a copy of the
selected sheet and move it to the the end.
Hopefully some kind spread sheet wizard can provide me with answer.

Sub copytoend()

With ActiveWindow.SelectedSheets
.copy After:=Sheets(Sheets.Count)
End With

End Sub


Gord Dibben MS Excel MVP

On Sat, 16 Feb 2008 03:49:18 GMT, Bryan wrote:

Okay, this is want I want to do. Have a macro that will make a copy of the
selected sheet and move it to the the end.
Hopefully some kind spread sheet wizard can provide me with answer.

Slightly different

Sub copysheet()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Bryan" wrote in message
.. .
Okay, this is want I want to do. Have a macro that will make a copy of the
selected sheet and move it to the the end.
Hopefully some kind spread sheet wizard can provide me with answer.

Much more concise.


Gord

On Sat, 16 Feb 2008 10:37:23 -0600, "Don Guillett"
wrote:

Slightly different

Sub copysheet()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
End Sub