Renaming multiple tabs

Question

I have a workbook that was used in 2011, I've made a copy renaming it 2012.

All the tabs have Jan 2011, Feb 2011, Mar 2011 etc as the tab names. Is there a way of changing 2011 to 2012 in bulk?

Answer 1

Hi,

With code you can. Try this and if you change the suffix to 13 you can use it next year

Sub Rename_Tabs()

Dim x As Long, suffix As String

Dim v as Variant

suffix = " 12"

v = Split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", ",")

For x = 1 To Worksheets.Count

    If Not IsError(Application.Match(Left(Sheets(x).Name, 3), v, 0)) Then

    Sheets(x).Name = Left(Sheets(x).Name, 3) & suffix

    End If

Next

End Sub

Answer 2

You might also like to mark my response as answer.

I did. Don't know why it's not showing...

Just clicked on it again - THREE times and finally it's showing as answered.... ;-)

Hi,

Somethings going awry here today, 2 of my posts to others simply vanished.

Answer 3

You might also like to mark my response as answer.

I did. Don't know why it's not showing...

Just clicked on it again - THREE times and finally it's showing as answered.... ;-)

Answer 4

Thanks very much.

Spot on!

You're welcome and thanks for the feedback. You might also like to mark my response as answer.

Answer 5

Thanks very much.

Spot on!