VBA to rename sheets

[hocs]

Hi
I would like to know the code to rename default sheet name (Sheet1, Sheet2, Sheet3, ect..) to Invoice1, Invoice2, Invoice3, up to Invoice50.
Thanks & Happy New Year!

 

[VoG]

Try this

Sub RenSheets()
Dim i As Integer
For i = 1 To Worksheets.Count
    Worksheets(i).Name = "Invoice" & i
Next i
End Sub