Macro needed

  • Thread starter Thread starter Bryan
  • Start date Start date
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.
 
Sub copytoend()

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

End Sub


Gord Dibben MS Excel MVP
 
Slightly different

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