How to Rename 1 to 31 full date in sheet names ?

[kalpeshkansara]

How can we rename sheet1 to sheet 31 as date of every month?

if we need this next october month fully from 1st date to 31st Oct 2018. How can we do?

Can it possible if we put only Month/Year as OCT/2018 THEN IT SHOULD AUTO RENAME ON EVERY SHEETS NAME FROM 01-OCT-2018 TO 31-OCT-2018 OR 01-10-2018 TO 31-10-2018.

ONE OF OFFICE REPORTS NEED EVERY MONTH TO RENAME WHOLE DAY'S DATE FOR NEW MONTH. SO ITS REQUIRED HARDLY.

IS IT POSSIBLE OR WHAT?

WAITING FOR REPLY.

 

[WaterGypsy]

Try this :

Sub Macro1()

Dim dteIn As Date
Dim sh As Variant
dteIn = InputBox("Date entry")
'
For Each sh In Worksheets

sh.Name = Format(dteIn, "dd MMM yy")

dteIn = dteIn + 1

Next sh

End Sub

 

[kalpeshkansara]

What is the steps to run this macro?

 

[WaterGypsy]

The easiest way is to load it into a module on the spreadsheet and then run it from "Macros" on the View Tab

 

[kalpeshkansara]

Yes its working like magic wow great. Good coding
can we skip sundays?

 

[WaterGypsy]

After dteIn = dteIn + 1 add something like

If Format(dteIn, "DDD") = "Sun" then dteIn = dteIn + 1