renaming sheets

[Guest]

How do I rename a worksheet like this:
Original name + (Year-1)
I want to save some worksheets when a new year starts and use the old name
again on a new empty sheet

 

[somethinglikeant]

Sub RenameSheet()
x = WorksheetFunction.Text(Now(), "YYYY") - 1
ActiveSheet.Name = ActiveSheet.Name & " " & x
End Sub

This code performs this operation on the current activesheet

somethinglikeant

 

[Ron de Bruin]

Hi Kjeldc

Try this
ActiveSheet.Name = ActiveSheet.Name & " " & Year(Date) - 1

 

[Guest]

Thank you, both of you. Just what I wanted ;-)

"Ron de Bruin" skrev:

 

[wal50]

Helpful as always.
Thanks,
wal50

Hi Kjeldc

Try this
ActiveSheet.Name = ActiveSheet.Name & " " & Year(Date) - 1