title: Rename a Sheet with the current date on VBA
body: <p>I have a code to copy all cells of a sheet and paste it in a new sheets in values with the original format. I want also to rename automatically the new sheet with the current date, I've tried this:</p>
  
  <pre><code>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
  </code></pre>
  
  <p>But the last line doesn't work to reach what I want.</p>
  
  <p>Could anyone help me?</p>
  
  <p>Thanks.</p>