Macro needed
 

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.

Macro needed
 

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.

Macro needed
 

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.

Macro needed
 

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