Macro para nombrar hojas de cálculo en excel

Buenos días

Cordial saludo

La presente para solicitar a ustedes el favor de indicarme cómo puedo modificar el siguiente código para lograr que se le asignen nombres consecutivos a las hojas de un libro en excel. El código que he elaborado es el siguiente: