fabio, supondo que em seu arquivo você tenha somente a aba que servirá de modelo e pretendemos copia-la uma determinada quantidade de vezes renomeando-as.
Para testar a rotina proceda da seguinte forma, crie um novo arquivo somente com uma aba, altere o nome da Aba para "Modelo", abra o editor do VBA cole a rotina abaixo e execute, será solicitado a qde de vezes que pretende copiar a aba Modelo, preservando-a.
Sub CopiasDaAbaModelo()
Dim i As Long
Application.ScreenUpdating = False
x = InputBox("Entre o numero de vezes que quer copiar a aba Modelo")
For i = 1 To x
Sheets("Modelo").Copy After:=Sheets(Sheets.Count)
Sheets("Modelo (2)").Name = "Dia - " & Format(i, "00")
Next
Application.ScreenUpdating = True
End Sub
[]S
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/03/2012 8:01 am