Copy sheet within a workbook and automatically rename it based on dates, for the month

i found this VBA code from another thread...


Sub DuplicateTemplateSheet()
Dim i As Integer, m As Integer, y As Integer

Dim ws As Worksheet: Set ws = Sheets("MASTER COPY")
m = Month(ws.Range("E3"))
y = Year(ws.Range("E3"))


For i = 1 To Day(Application.EoMonth(ws.Range("E3"), 0))
Sheets("MASTER COPY").Copy After:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = Format(i, "00") & "-" & Format(m, "00") & "-" & y
.Range("E3") = DateSerial(y, m, i)
End With
Next i
End Sub


Question is how to change the format so the date in the new tabs are dd mmm (01 Apr) for example...

the code i found is perfect for my needs, just the date format in the New Tabs created!

Thank You,
Sadly the date is still showing full, 01-04-2023, Rather than 01 Apr as i don't need the year..

i appreciate your help and time you have taken

i was playing around and after many errors i managed the following...
(i know it will look simple to some what i done, but with No VBA or Macro experience)

Sub DuplicateTemplateSheet()
Dim i As Integer, m As Integer, y As Integer

Dim ws As Worksheet: Set ws = Sheets("MASTER COPY")
d = Day(ws.Range("E3"))
m = Month(ws.Range("E3"))
y = Year(ws.Range("E3"))


For i = 1 To Day(Application.EoMonth(ws.Range("E3"), 0))
Sheets("MASTER COPY").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Range("E3") = Format(DateSerial(y, m, i), "dd mmm")
.Name = Format(i, "00") & " " & Format(m, "00")

End With
Next i
End Sub

Its almost near Perfect, Just cant seem to change the Name in the Tabs to the correct format!
Based on May 2023,
Tabs now renamed as (01 05) and so on
But i would like them to be 01 May and so on..

i know i am missing something so simple!

A little modification does the game

Sub DuplicateTemplateSheet()
Dim i As Integer, m As Integer, y As Integer

Dim ws As Worksheet: Set ws = Sheets("MASTER COPY")
d = Day(ws.Range("E3"))
m = Month(ws.Range("E3"))
y = Year(ws.Range("E3"))


For i = 1 To Day(Application.EoMonth(ws.Range("E3"), 0))
Sheets("MASTER COPY").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Range("E3") = Format(DateSerial(y, m, i), "dd-mm-yyyy")
.Name = Format(i, "00") & "-" & Format(m, "00") & "-" & Format(y, "0000")

End With
Next i
End Sub