• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA for renaming tab to current week Friday

Punner77

New Member
Hi,
I am looking for a simple way to rename a tab to whatever the current week Friday's date is. Below returns the current date, but I am not sure how to make it specify the Fridays date. One thing is that the tab could be renamed at any point during the week.

ActiveSheet.Name = Format(Date, ("mm-dd-yyyy")

Any thoughts?
 
.
Code:
Option Explicit

Sub WhatFriday()
Dim NextFriday As Date
NextFriday = Date + 8 - Weekday(Date, vbFriday)
Sheet1.Name = Format(NextFriday, "mm-dd-yyyy")
End Sub
 
So this works really well during the current week - unless it is actually the current Friday or the Saturday after. Is there some way to modify this?
 
Back
Top