vbaSolved/Closed

Question

I want to append the month name at the end of the tab names in my workbook
I have 86 tabs which are named by employee name and every month I want to run a VBA code that appends the month name 
So for instance "Joe Bloggs-July"

TrowaD · Answer

Hi Looneybin,

The code below will add the month to the sheet name. On row 5 you will find on example of excluding a sheet. You can add to this row to exclude more sheets or you can remove the row (as well as row 7) if you don't want to exclude any sheet.

Sub RunMe()
Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name <> "Master" Then
        ws.Name = ws.Name & "-" & Format(Date, "Mmmm")
    End If
Next ws
End Sub 

Best regards,
Trowa

Vba

1 reply

Subscribe To Our Newsletter!