Radao, tenha em mente que você sabe o que são Quant01 x VlrUnit01, mas nós não fazemos a minima idéia, o ideal seria postar um modelo, ou dar as referencias das celulas que se referem estes campos, ou de repente estes campos não são nem ranges, podendo ser TextBoxs ou outro tipo de controle em algum formulário, fica dificil orientar assim.

Mas seguindo uma lógica matemática, deveria de ser algo do tipo :

VlrTot = VlrTot01 + VlrTot02 + VlrTot03

Poste um modelo, ficará mais fácil ajudar.

[]s

O meu problema esta no frmorcamento onde faço os cálculos individuais de cada item, porem não estou conseguindo fazer o somatório total

Caso tenha alguma sugestão para que eu possa melhorar algo, fique a vontade opara fazer seu comentários

Radao, aproveitando a dica e a rotina do colega Reinaldo no tópico abaixo:
ERRO NA MACRO DE AUTO SOMA EM TEXTBOXES
viewtopic.php?f=10&t=6756

Fiz uns ajustes, então faça o seguinte:
Acrescente a rotina abaixo em seu Formulário de nome "frmCadastroOrçamento" não encontrei o "frmorcamento"

Sub CalculoReinaldo()
    Dim Valor As Double
    Dim c
    Dim aN
    
    Valor = 0
    
    aN = 1
    
    For Each c In Controls
        
        If TypeName(c) = "TextBox" Then
            
            
            If c.Name = "txtVlrTot" & "0" & aN And IsNumeric(c.Text) Then
                    Valor = Valor + CDbl(c.Text)
                aN = aN + 1
            End If
            
        End If
    Next
    
    txtVlrTotGeral.Text = Format(Valor, "R$ #.00")
    
End Sub

Depois, de dois cliques em cada Textbox que tem os nomes "txtVlrTot01"..02..03 e adicione a chamada a macro:
Call CalculoReinaldo
Deverão ficar assim :

Private Sub txtVlrTot01_Change()
    Call CalculoReinaldo
End Sub

Private Sub txtVlrTot02_Change()
    Call CalculoReinaldo
End Sub

Private Sub txtVlrTot03_Change()
    Call CalculoReinaldo
End Sub

Private Sub txtVlrTot04_Change()
    Call CalculoReinaldo
End Sub

Faça isto em todos os 10.

Faça os testes e veja se é isto.

[]s

OK.
Vou tentar. O nome certo é frmCadastroOrcamento

Boa Noite Reinaldo,
No txtVlrTotGeral esta aparecendo apenas R$ 0,00. Não esta somando

A rotina de calculo está com erro
o nomo do controle está errado e falta incremento da variavel aN

Private Sub TotalGeral()
Dim Valor As Double
Dim c As Control
Dim aN   
Valor = 0
aN = 1
For Each c In Controls
    If TypeName(c) = "TextBox" Then
        If c.Name = "txtVlrTot" & "0" & aN And IsNumeric(c.Text) Then
            Valor = Valor + CDbl(c.Text)
        aN = aN + 1
        End If
    End If
Next
    txtVlrTotGeral.Text = Format(Valor, "R$ #,##0.00")
End Sub

Porem no seu modelo, como há muitos controles prefeiro utilizar conforme rotina abaixo:

Private Sub TotalGeral1()
Dim Tot1 As Double, Tot2 As Double, Tot3 As Double
Dim Tot4 As Double, Tot5 As Double, Tot6 As Double
Dim Tot7 As Double, Tot8 As Double, Tot9 As Double, Tot10 As Double
Dim Valor As Double
Valor = 0
'Compatibilização de valores
If txtVlrTot01 = "" Then
    Tot1 = 0
Else
    Tot1 = txtVlrTot01
End If
If txtVlrTot02 = "" Then
    Tot2 = 0
Else
    Tot2 = txtVlrTot02
End If
If txtVlrTot03 = "" Then
    Tot3 = 0
Else
    Tot3 = txtVlrTot03
End If
If txtVlrTot04 = "" Then
    Tot4 = 0
Else
    Tot4 = txtVlrTot04
End If
If txtVlrTot05 = "" Then
    Tot5 = 0
Else
    Tot5 = txtVlrTot05
End If
If txtVlrTot06 = "" Then
    Tot6 = 0
Else
    Tot6 = txtVlrTot06
End If
If txtVlrTot07 = "" Then
    Tot7 = 0
Else
    Tot7 = txtVlrTot07
End If
If txtVlrTot08 = "" Then
    Tot8 = 0
Else
    Tot8 = txtVlrTot08
End If
If txtVlrTot09 = "" Then
    Tot9 = 0
Else
    Tot9 = txtVlrTot09
End If
If txtVlrTot10 = "" Then
    Tot10 = 0
Else
    Tot10 = txtVlrTot10
End If

Valor = Tot1 + Tot2 + Tot3 + Tot4 + Tot5 + Tot6 + Tot7 + Tot8 + Tot9 + Tot10
    
txtVlrTotGeral.Text = Format(Valor, "R$ #,##0.00")
End Sub

Veja em seu arquivo