Hi Kjeldc

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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Kjeldc" wrote in message ...
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