Macro needed

B

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.
 
G

Gord Dibben

Sub copytoend()

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

End Sub


Gord Dibben MS Excel MVP
 
D

Don Guillett

Slightly different

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