Private Function ReturnTotale(NomeRangTot As String, NomeColonnaRng As String) As Currency

    On Error Resume Next
    Dim tmpRange As Range
    Dim tmpRow As Range
    Dim iTot As Currency
    Dim ColNum As Integer
    Dim RowNum As Integer
    
    Set tmpRange = Range(NomeRangTot)
    iTot = 0
    ColNum = Range(NomeColonnaRng).Column
    RowNum = tmpRange.Rows.Count
    
    For Each tmpRow In tmpRange.Rows

        
        iTot = iTot + IIf(IsNumeric(tmpRow.Cells(1, ColNum)), tmpRow.Cells(1, ColNum), 0)    
    
    Next
    
    ReturnTotale = iTot
    Set tmpRange = Nothing
    Set tmpRow = Nothing
    
End Function