Bom dia fabion,
Para fazer isso use o procedimento abaixo, julgando que a sua última planilha seja 01DEZ ou 02DEZ, seguindo a sua lógica e julgando que você tenha um arquivo para cada mês, caso não seja um arquivo para cada mês, no dia primeiro dia de cada mês ao incluir a planilha só altere para o dia sequencial e as próximas já seguirão a mesma sequência:
Sub lsIncluirPlanilhaSequencial()
'Inclui uma planilha
Sheets.Add After:=Sheets(Sheets.Count)
'Altera o nome dela para o nome sequencial, só funciona para o mesmo mês
Sheets(Sheets.Count).Name = Format(Left(Sheets(Sheets.Count - 1).Name, 2) + 1, "00") & Right(Sheets(Sheets.Count - 1).Name, 3)
End Sub
Abraço
Marcos Rieper
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/12/2013 9:10 am