Copying and Renaming New Sheet

T

T. Jenkins

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
 
F

FSt1

hi
try this...
Sub newsheet()
Dim d As String
d = Format(Now(), "ddd")

ActiveSheet.Cells.Copy
Sheets.Add after:=ActiveSheet
ActiveSheet.Paste
ActiveSheet.Name = "Ship Plan " & d
End Sub

regards
FSt1
 
J

JLGWhiz

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

JLGWhiz

I gave you day of the week.
To get day of the month change from:

newDt = Format(Date, "ddd")

TO:

newDt = Format(Date, "dd")
 
T

T. Jenkins

Thanks to both of you for the response. The code by JLG was more of what I
was looking for (i.e., copying the sheet rather than cells). Worked
perfectly.

Thanks for the help.

Todd
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top