Suma stĺpca C sa dá vypočítať aj priamo vo VBA, nie je potrebné mať len kvôli tomu špeciálnu bunku. Ak by sa mal ošetriť aj prípad, keď používateľ zmení viacero buniek naraz (napr. cez Copy & Paste), tak by to mohlo vyzerať takto:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aRange As Range
    Set aRange = Intersect(Target, Range("C:C"))
    If Not aRange Is Nothing Then
        If WorksheetFunction.Sum(Range("C:C")) > Sheet1.Range("A2") Then
            MsgBox "Nějaký text ...", vbExclamation, "Nadpis"
        End If
    End If
End Sub