Суммировать определенные значения в Excel и отображать в окне сообщений?

Question

У меня есть Excel, который имеет весь список меток в колонке C. Мне нужно окно сообщения, которое должно рассчитать сумму этих меток и должно отображать меня при закрытии Excel (или), это нормально, если он показывает мне, когда я нажимаю любую комбинацию клавиш. Я попытался с помощью кода ниже, но он не работает:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Dim answer As Integer 
    answer = MsgBox("Do want to see the total?", vbYesNo + vbQuestion, "Total") 

     If answer = vbYes Then 
      Range("G1").Value = Application.Sum(Range(Cells(3, 2), Cells(3, 3000))) 
    Else 
     'do nothing 
    End If 
    End Sub 

Answer 1

Что делать, если вы

If answer = vbYes Then 
    msgbox(Application.Sum(Range(Cells(2,3), Cells(3000,3))) 
End If 

(я переключил свои Cells() номера вокруг, так как вы хотите Колонка C, а не грести 3.)