[Solved] Need a VBA Code to Name Sheets

[momo123]

i want a micro that names pages with the names of months otomatice

 

[shamimarita]

Hello Momo,

You can use a simple VBA macro to rename sheets with the names of the months automatically.

• Go to the Developer tab >> select Visual Basic.
• Click Insert menu >> select Module.
• Copy-paste the following VBA code.

Sub RenameSheetsToMonths()
    Dim i As Integer
    Dim monthNames As Variant
    monthNames = Array("January", "February", "March", "April", "May", "June", _
                       "July", "August", "September", "October", "November", "December")
    
    For i = 1 To 12
        If ThisWorkbook.Sheets.Count >= i Then
            ThisWorkbook.Sheets(i).Name = monthNames(i - 1)
        Else
            ' Add new sheet if not enough
            ThisWorkbook.Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
            ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = monthNames(i - 1)
        End If
    Next i
End Sub

 

[momo123]

thanks

 

[shamimarita]

You are most welcome. Keep helping each other!