Macro needed

[Bryan]

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.

 

[Gord Dibben]

Sub copytoend()

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

End Sub


Gord Dibben MS Excel MVP

 

[Don Guillett]

Slightly different

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

 

[Gord Dibben]

Much more concise.


Gord