How to rename excel sheets with consecutive number after a particular name

How to rename excel sheets with consecutive number after a particular name such as sheets, test , work, employees

You can download the codes from here.
mirror 1

mirror 2

excel,ms excel,excel 2013,excel 2016,sheets names,auto rename sheets name,office 2016,office 2013,