I used this to rename worksheets in an old project of mine.
H3 is used to store the date in a text format (from A23) before being deleted
VB Code:
  1. ' Rename New Sheet to dd-mmm
  2. Range("H3").Formula = "=Text(A23, ""dd"" & ""-"" & ""mmm"")"
  3. ActiveSheet.Name = Range("H3")
  4. Range("H3").Formula = ""

adding the year should be easy enough. ..mm"" & ""-"" & ""yyyy"")"