Create a new worksheet for every week in Excel

Let’s take the frustration out of user forms

Become an Affiliate and earn 25% on Course Sales

For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting

I am able to provide online help on your computer at a reasonable rate.

I use a Blue condenser Microphone to record my videos, here is the link

Check out Crowdcast for creating your webinars

I use Tube Buddy to help promote my videos
Check them out

Follow me on Facebook

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I’ve used or have experience with.

templates with code are available for $50 USD

code
Sub everyweek()
Dim nextdate As Date
Dim ndate As Date
Dim cnt As Long
Dim wknum As Long
Dim days As Integer

Dim sdate As Date
days = 7

Worksheets(“Sheet1”).Range(“A1”).Select
Worksheets(“Sheet1”).Range(“A1”).NumberFormat = (“dd-mmm-yyyy”)
sdate = Worksheets(“Sheet1”).Range(“A1”).Value
Cells.EntireColumn.AutoFit

sdate = Worksheets(“Sheet1”).Range(“A1”).Value
nextdate = sdate + days
wknum = 1
cnt = 0
Do While cnt (less than)10

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Range(“A1”).NumberFormat = (“dd-mmm”)
ActiveSheet.Range(“A1”).Value = nextdate
Cells.EntireColumn.AutoFit
ActiveSheet.Name = Format(nextdate, “dd-mmm” & ” ” & “#” & wknum)
If wknum = 1 Then
wknum = 2
Else
wknum = 1
End If
nextdate = nextdate + days
cnt = cnt + 1
Loop
End Sub

Watch more new videos about Excel Office | Synthesized by Mindovermetal English