VBA code: msg box if sum of cells do not equal cell "A1"

[Katyjean1]

I need a code to stop the other codes from running if the sum of cells O16:O26 do not equal cell O10. Also need the msgbox warning. This is what I've found so far. It's not working for me. Can anyone help?

Private Sub Worksheet_Change(ByVal Target As Range)


    If Application.WorksheetFunction.Sum(Range("O16:O26")) <> (Range("O10")) Then
        MsgBox "Distribution amt does not match total amount"
    End If
    
End Sub

I currently have a command button set to run 2 other codes. Should this stop code be written onto Sheet1 in VBA? Or can it be a separate module and added to the top of the button click list?

Thanks for all the help today!

 

[Joe4]

Just place this code at the top of the Command Button code that is calling your other codes:

    If Application.WorksheetFunction.Sum(Range("O16:O26")) <> (Range("O10")) Then
        MsgBox "Distribution amt does not match total amount"
        Exit Sub
    End If

So, if the condition is not met, it will return the Message Box and exit the sub procedure before it calls the other two macros.

 

[Katyjean1]

Perfect! Thanks so much!!

 

[Joe4]

You are welcome.