Renaming the Sheets in ascending order

[Abhishek Pratap Singh]

I have data in the workbook, with 46 sheets. And I want to rename the sheet, starting from January 2016, to may 2019. Need VBA for the same. Format - January, February and so on.

 

[vletm]

Abhishek Pratap Singh
First You would like to rename sheets from January 2016 to may 2019.
Next ... You would like to rename those with format from January ... May ... hmm?
There can be once sheet names.
Do ALL sheets will rename?

 

[Abhishek Pratap Singh]

Yes. Currently the sheet name is Sheet 1, Sheet 2 and so on . I need to rename it to January 2016, February 2016, ..... , May 2019. I need BVBA for the same.

 

[Marc L]

Restart from here (see in particular How to get the Best Results) :​

Site Rules - New Users - Please Read

Hi all, Welcome to the Chandoo.org Forums. Posting Rules & Etiquette The Chandoo.org Forums is a collaborative and happy place to learn and expand your Excel knowledge. The Chandoo.org Forums consist of several Sub-Forums based on the type of question/area of Excel you are interested in...

chandoo.org

 

[vletm]

Abhishek Pratap Singh
From my side - my questions needs Your answers for my questions that I could try to help You.
Of course, I could guess ... but Your would be surprised.

 

[Keetoowah]

Hi Abhishek Pratap Singh,
try this code:

Sub RenameSheets()

    Dim ws     As Worksheet
    Dim i      As Integer
    Dim StartDate As Date

    StartDate = "01/01/2016"
    
    For i = 1 To ThisWorkbook.Worksheets.Count
        
        ThisWorkbook.Worksheets(i).Name = MonthName(Month(StartDate)) & " " & Year(StartDate)
        StartDate = DateAdd("m", 1, StartDate)
        Next
    End Sub