How to copy a worksheet and update a cell showing the date in increments

[DaOriginalExcel]

Hello, I am trying to come up with a function or a VBA macro that is able to automatically update a cell with the next days date (based off previous worksheet) on the newly copied shoot

Example: make a copy of the current worksheet (Sept 8), but the date in cell B1 updates incrementally to Sept 9 on the new copied one. All else stays the same as well as being able to do it for days in advance.

Does anyone know how to go about this? Appreciate the help!

 

[AlphaFrog]

Sub NextDaySheet()
    ActiveSheet.Copy After:=ActiveSheet
    Range("B1").Value = Range("B1").Value + 1
End Sub

 

[Kaper]

The date is just a number, so in a macro you use to copy a sheet you can just add +1 to cell B1 value


Edit: whoops, it's already in the post published by AlphaFrog a minute ago while I was writing this one

 

[DaOriginalExcel]

Sub NextDaySheet()
    ActiveSheet.Copy After:=ActiveSheet
    Range("B1").Value = Range("B1").Value + 1
End Sub

Great Thanks! Sorry im new to VBA so this is very helpful. If I wanted to rename the newly copied sheet to Say "Sept 9", how would you do that if you can?

I tried setting a value to B1 and renaming ActiveSheet but it isnt working.

Thanks Again!

 

[AlphaFrog]

Sub NextDaySheet()
    ActiveSheet.Copy After:=ActiveSheet
    Range("B1").Value = Range("B1").Value + 1
    On Error Resume Next
    ActiveSheet.Name = Format(Range("B1").Value, "mmm d")
    If Err.Number <> 0 Then MsgBox Format(Range("B1").Value, "mmm d"), _
        vbExclamation, "Sheet Name Already Exists!"
End Sub