Changing names on worksheet tabs quickly

[AntBlabby8]

I am setting up a budget 2012 workbook. I am simply doing a Save As from my 2011 file, because the 2012 file will be using the same names on all 32 worksheets that I have for my 2011 workbook and starting with the same templates on each worksheet. The name of each tab will be WorksheetName 2012. Every single one of them will have to say 2012. All of them will say, however, 2011. Is there a way to change them ALL to 2012 at once without having to do a name change for each tab, one at a time?

THANKS

 

[njimack]

Sub SheetNames()
Dim ws As Worksheet
Dim Yr As Integer


Yr = InputBox("Please enter year to be replaced", "Renaming Sheets", Year(Date))

For Each ws In ThisWorkbook.Worksheets
    If InStr(1, ws.Name, Yr, 1) > 0 Then ws.Name = Replace(ws.Name, Yr, Yr + 1)
Next ws


End Sub

 

[mikerickson]

Why the IF?
Why not just execute

ws.Name = Replace(ws.Name, Yr, Yr + 1)

on every sheet?

 

[AntBlabby8]

Thanks!