I have a macro that checks whether the sum of a range = 0. If it does not equal zero a message box will ask user to check values in range. However, I also want the macro to pause and wait for values to change, then re-apply the if statement test and if the sum is zero then continue with the rest of the macro.
I have the code for the 2 message boxes, but can't find anything that makes sense for the macro to pause if sum not zero.
Sub FinChk()
Dim wsJournal As Worksheet
Dim VDRow As Range
Set wsJournal = Worksheets("Journal")
With wsJournal
Set VDRow = Worksheets("Journal").Range("R7:R" & Cells(Rows.Count, "R").End(xlUp).Row)
If Application.WorksheetFunction.Sum(VDRow) <> 0 Then
MsgBox "Journal does not balance. Check column R."
Else
If Application.WorksheetFunction.Sum(VDRow) = 0 Then
MsgBox "Task completed! Please post."
End If
End If
End With
Worksheets("AssJnl").Delete
Worksheets("SPSJnl").Delete
Worksheets("VolJnl").Delete
End Sub
Any advice?