Dim Soma(1 To 31) As Double

For y = 1 To 31
    For j = 3 To UltimaLinha
        If Month(Range("AH" & j).Value) = 1 And Year(Range("AH" & j).Value) = CInt(anoatual) And Day(Range("AH" & j).Value) = y Then
            Soma(y) = Soma(y) + Sheets("Pedidos").Range("U" & j).Value
        End If
    Next
    rec1.Caption = Format(Soma1, "#,##0.00")
Next

'Para testar
For y = 1 To 31
    Debug.Print Soma(y)
Next y

Benzadeus,

Seja bem vindo ao fórum. Esse é fera!!

Bom dia Benzadeus,

após a modificação o código ficou assim:

Private Sub janeiro_Click()
Dim UltimaLinha, i, z, y, j As Integer
Dim Soma1, Soma2, Soma3, Soma4, Soma5, Soma6, Soma7, Soma8, Soma9, Soma10, Soma11, Soma12 As Double
Dim Soma13, Soma14, Soma15, Soma16, Soma17, Soma18, Soma19, Soma20, Soma21, Soma22, Soma23, Soma24 As Double
Dim Soma25, Soma26, Soma27, Soma28, Soma29, Soma30, Soma31 As Double

Sheets("Pedidos").Select
UltimaLinha = Sheets("Pedidos").Cells(Cells.Rows.Count, 1).End(xlUp).Row
If UltimaLinha < 3 Then UltimaLinha = 3
For y = 1 To 31
    For j = 3 To UltimaLinha
        If Month(Range("AH" & j).Value) = 1 And Year(Range("AH" & j).Value) = CInt(anoatual) And Day(Range("AH" & j).Value) = y Then
            Soma(y) = Soma(y) + Sheets("Pedidos").Range("U" & j).Value
        End If
    Next
    rec(y).Caption = Format(Soma(y), "#,##0.00")
Next
End Sub

O problema é que ao clicar no botão que chama esta função apresenta o erro: "Erro de compilação: 'Sub" ou 'Function' não definida". Não consegui identificar o problem!

Lacerda, voce precisa declarar a variavel Soma, conforme o codigo do Gualberto(Benzadeus):"Dim Soma(1 To 31) As Double".

Observação:
Em uma declaração de variaveis, para cada variavel e necessario a indicação do tipo ("As"), caso contrario assumirão o vlr padrão.
Exemplo: Dim UltimaLinha, i, z, y, j As Integer, sómente y é considerado "Integer", as demais assumem o valor padrão "Variant"
Para que todas seja consaideradas como y a declaração deve ser:
Dim UltimaLinha As Integer, i As Integer, z As Integer, y As Integer, j As Integer

Com o codigo reformulado, não é necessario a declaração de todas essas variaveis

Reinaldo, já consertei! apesar de meu codigo está todo erradooooooo! Vou ter que ajustar isso;

Bom agora esta apresentando outro erro. Na linha abaixo, não sei como declarar isso! o nome do label é rec1, rec2, rec3 etc...

rec(y).Caption = Format(Soma(y), "#,##0.00")

Não entendi bem , mas tente :
Rec= "rec" & y
Rec.caption...........

Não funcionou!!

"rec" & y & ".Caption" = Format(Soma(y), "#,##0.00")

Continua com erro nos nomes dos labels!

Não funcionou!!

"rec" & y & ".Caption" = Format(Soma(y), "#,##0.00")

Continua com erro nos nomes dos labels!

Pelo que entendi da questão, você está utilizando Controles "Label" nomeados rec1, rec2, rec3........

Só que não vi nenhuma linha na rotina referenciando-os como sendo Controles do tipo Label.

Na dica do Reinaldo, definimos o valor da Variavel "Rec " como sendo a concatenação do "Texto" "rec" e o valor de "y" :
Rec = "rec" & y
e utilizando a instrução: MsgBox Rec, nos daria o valor concatenado, até ai tudo certo, mas em que parte ou em que rotina temos a definição que citei acima (Controle Label)

De uma olhada na explicação e baixe o exemplo do site abaixo :
É sobre os CommandButtons, mas é só alterar o tipo de controle para Label :
Handle Multiple UserForm Buttons With One Subroutine
http://j-walk.com/ss/excel/tips/tip44.htm

No Forum temos alguns tópicos sobre tipo de controles, é só dar uma pesquisada.

[]s

Agooooora entendi! Desculpe meu atraso, foi que demorei para respirar quando nasci...

Ajustei o comando conforme abaixo, técnica mente está funcionando, pois o msgbox apresenta rec1.caption . No entanto não altera os valores dos rec´s... O que estou fazendo de errado?

receit = "rec" & y & ".Caption"
receit = Format(Soma(y), "#,##0.00")

Amigos Alguma luz?