Sem "ver" o projeto fica difícil, mas seria algo +/- assim
No evento initializate ou activate do formulário:

Dim uLinha As Long, x As Long
Dim tVendas As Currency, qVendas As Long
uLinha = Worksheets("Vendas").Cells(Cells.Rows.Count, "a").End(xlUp).Row
With Worksheets("Vendas")
'supondo que os registros iniciem na linha 2
'supondo que o mes seja na coluna A e valor na coluna B
For x = 2 To uLinha
    If Month(.Cells(x, 1)) = Month(Date) Then
        tVendas = tVendas + .Cells(x, 2)
        qVendas = qVendas + 1
    End If
Next
label_TotalVEndasnomês.Caption = tVendas
label_QtdeVendasnomês.captio = qVendas
End With

Caro Reinaldo;

Obrigado pela atenção.

Montei uma planilha de teste para tentar utilizar o código que vc me passou e funcionou perfeitamente, porém quando insiro o código na minha planilha do projeto que estou montando gera o erro "Function não definida". Segue anexo uma versão da planilha, é só vc iniciar o vba, em Form_Geral, no evento initialize, pus um comentário bem destacado lá, se vc puder me ajudar.

Bem em seu modelo enviado, há vários erros, com trechos de código "perdidos" .
Mas voltando à soma, vc adicionou a sub atualizarlabels no modulo1 porem como private, assim sendo a mesma não fica visível aos demais módulos; motio do erro reportado.
Mova essa Private sub atualizarlabels() do modulo 1 para o modulo do Form_Geral que devera funcionar

Funcionou perfeitamente, obrigado!

Só uma dúvida, quando for 2015 por exemplo, ele vai somar somente o mês de janeiro de 2015 ? ou teríamos que colocar um outro critério?

Deverá se considerado tambem o ano
Algo assim:

...    If Month(.Cells(x, 1)) = Month(Date) and year(.cells(x,1)=year(date) Then....

Excelente!! Muito obrigado, tópico resolvido

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.