Abas baseadas em meses

[jansensaippa]

Olá.

Já desisti de tentar encontrar o problema da minha planilha.

Criei um código para criar abas baseadas nos meses e a primeira coluna de cada aba conter os dias do respectivo mês. Entretanto, quando rodo o código, geram-se as abas, mas a coluna com os dias não é atualizada. Por favor, se alguém conseguir ver onde estar o erro.

Sub padrão()

Dim i, a, x, ano, dt As Integer

Dim mes As String

a = 3

ano = Val(Application.ThisWorkbook.Name)

For i = 5 To Day(DateSerial(ano, j, 1)) * 3

Range("a" & i) = DateSerial(ano, 1, a / 3)

a = a + 1

Next i

For j = 2 To 12

If j = 2 Then

mes = "FEVEREIRO"

ElseIf j = 3 Then

mes = "MARÇO"

ElseIf j = 4 Then

mes = "ABRIL"

ElseIf j = 5 Then

mes = "MAIO"

ElseIf j = 6 Then

mes = "JUNHO"

ElseIf j = 7 Then

mes = "JULHO"

ElseIf j = 8 Then

mes = "AGOSTO"

ElseIf j = 9 Then

mes = "SETEMBRO"

ElseIf j = 10 Then

mes = "OUTUBRO"

ElseIf j = 11 Then

mes = "NOVEMBRO"

ElseIf j = 12 Then

mes = "DEZEMBRO"

End If

ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)

Sheets(Sheets.Count).Name = mes

Sheets(j - 1).Select

Columns("A:S").Select

Selection.Copy

Sheets(j).Select

Range("a1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

a = 3

For i = 5 To Day(DateSerial(ano, j, 1)) * 3

Range("a" & i) = DateSerial(ano, j, a / 3)

a = a + 1

Next i

Next j

End Sub

[jansensaippa]

Identifiquei o problema, entretanto não encontrei a solução.

A função Day(DateSerial(ano, j, 1)) não está retornando a quantidade dos dias do mês que escolhi, talvez a variável ano = Val(Application.ThisWorkbook.Name) também não esteja retornando o que eu quero (o nome da planilha que é 2013)

[jansensaippa]

Resolvi. Como pensei mesmo. Para resolver renomeei a planilha como BOMBA - 2013 e usei ano = Val(Left(Right(Application.ThisWorkbook.Name, 9), 4)) (sendo que o nome da planilha é bomba - 2013.xlms