Application.Sum result is wrong

Question

Я хочу суммировать столбец таблицы для дальнейших расчетов макроса, но результат я получаю на Range ("eq_asis") = 1.00, когда он должен дать мне результат 0.00

Что я делаю неправильно?

Sub cambios_combobox() 
Dim librito As Worksheet 
Dim celda As Range 

Set librito = ActiveWorkbook.Sheets("Tabla Paquetes") 
Set celda = Range("A40") 
'Range("Table1[[#All],[Column1]]").Select 
    Select Case ComboBox1.Text 
     Case "Deco" 
      Range("eq_asis").Value = Application.Sum(librito.Range("Tabla2[Asistente fotografía]").Select) 
     Case "Moda" 
      celda.Value = 122 
     Case "SODIMAC" 
      celda.Value = 121 
     Case "Multimarca" 
      celda.Value = 120 
     Case "Belcorp" 
      celda.Value = 119 
    End Select 
End Sub 

Пробовал DSum но безрезультатно (не определен суб ошибки)

Answer 1

Это то, что происходит, когда вы передаете ничего к функции суммы по некоторым причинам. Вы передаете результат метода Select, который является нулевым. Вы хотите передать объект Range

Range("eq_asis").Value = Application.Sum(librito.Range("Tabla2[Asistente fotografía]"))