Foliar hojas en exel a través de una macro simple

Quiero foliar hojas de 1 al xx, pero que aparezca en el encabezado de la hoja en exel, sin dar datos desde alguna celda, le doy los valores directamente de la macro

Se que es una rutina simple porque la que tenia la perdí y no alcance a respaldar, y ahora la necesito urgente...