Sub Reset_Work_Order()

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete


Dim NewSht              As Worksheet

Master_Work_Order.Copy After:=ActiveSheet
Set NewSht = ActiveSheet

End Sub

Option Explicit

Sub Reset_Work_Order()

Dim ShtName As String
Dim Master_Work_Order As Worksheet
Application.DisplayAlerts = False

Set Master_Work_Order = Worksheets("YourMasterSheetsName")

' keep name of ActiveSheet
ShtName = ActiveSheet.Name
ActiveSheet.Delete

Dim NewSht              As Worksheet

Master_Work_Order.Copy After:=ActiveSheet

Set NewSht = ActiveSheet
' set new copied sheet name to Previous ActiveSheet's name
NewSht.Name = ShtName

End Sub