VBAの現在の日付でシートの名前を変更

Question

シートのすべてのセルをコピーして元の形式の値で新しいシートに貼り付けるコードがあります。

Cells.Select 
Selection.Copy 
Sheets.Add After:=ActiveSheet 
Range("A1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Range("A1").Select 
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ 
    SkipBlanks:=False, Transpose:=False 
ActiveSheet.Name = szToday 

をしかし、最後の行は、私が欲しいものを達するために動作しません：私は、自動的に現在の日付で新しいシートの名前を変更することもしたい、私はこれを試してみました。

誰でもお手伝いできますか？

ありがとうございました。

Answer 1

シート名は空白にすることはできません。 szTodayを定義していないので、空白です。

は、szTodayは私が定義する必要な要素である、あなたはそう

Sheets.Add After:=ActiveSheet 
szToday = Format(Date, "DD-MM-YY") 
ActiveSheet.Name = szToday 

それとも単に

Sheets.Add After:=ActiveSheet 
ActiveSheet.Name = Format(Date, "DD-MM-YY") 

または1つのライナー

Sheets.Add(After:=ActiveSheet).Name = Format(Date, "DD-MM-YY")