Automatically change tab name

Question

Is there a way to change the date name on a worksheet tab.&nbsp; I have to set up a worksheet with tabs for Tues Wed Thurs for the whole year.&nbsp; I have to have the date for each tab, is there anyway to this automatically? It is time consuming to enter each date manually.

haytham amairah · Answer

Hi,You can do that, but you need some lines of code.I'll try to help you, but please provide me with the date sequence you want to label tabs.

michael_avidan · Answer

swelchYou may want to try the following code.-------------------------Sub Tues_Wed_Thurs()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Start = InputBox("Enter the start date: ")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For DT = CDate(Start) To CDate(Start) + 365&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Application.Weekday(DT) &gt; 2 And Application.Weekday(DT) &lt; 6 Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheets.Add After:=ActiveSheet&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveSheet.Name = Format(DT, "dd_mm_yyyy")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = 1End Sub--------------------------Michael (Micky) Avidan“Microsoft® Answers" - Wiki author &amp; Forums Moderator“Microsoft®” Excel MVP – Excel (2009-2018)ISRAEL

Forum Discussion

Automatically change tab name

Share

Resources