Sub newSht()
newDt = Format(Date, "ddd")
Worksheets("Ship Plan").Copy After:=Worksheets("Ship Plan")
ActiveSheet.Name = "Ship Plan_" & newDt
ThisWorkbook.Save
End Sub

"T. Jenkins" wrote:

Need help in VBA coding to make a copy of a sheet within the same file,
preferably just to the right of the original version, then rename that sheet
to include the day of month. For example, I want to take a sheet named Ship
Plan, make a copy of that sheet, then rename the new sheet Ship Plan (DD),
where DD is the current day of the month.

I know it's not tough, but just haven't done this before, so I'm hoping
someone can help with the code.

Thanks,
Todd