VBA新しいシートに使用する現在のシート名を保存する

Question

アクティブシート名を覚えておき、アクティブシートを削除し、テンプレートとして使用する別のシートをコピーして、保存した名前で新しいシートの名前を変更したい削除されたシートから削除します。

これは、私はちょうどそれが以下のコード試し保存されたシート名を

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 

Answer 1

をシートの名前を変更持っている必要があります使用してコードイムです：あなたは、[Excelのマクロレコーダを使用してみました

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