Hello DeanP,This takes two macros. One will be the Worksheet Change event for "Journal" and the second is your original with some modifications. Journal Worksheet Change Event
Private Sub Worksheet_Change(ByVal Target As Range) Dim RngBeg As Range Set RngBeg = Range("R7") If Target.Column = RngBeg.Column And Target.Row >= RngBeg.Row Then Set Rng = Range(RngBeg, Target) Call FinChk End If End Sub
Final Check Macro
Global bCheckColR As BooleanGlobal Rng As RangeSub FinChk() Dim RngBeg As Range Dim RngEnd As Range Dim Wks As Worksheet Set Wks = Worksheets("Journal") Set RngBeg = Wks.Range("R7") If Rng Is Nothing Then Set RngEnd = Wks.Cells(Rows.Count, RngBeg.Column).End(xlUp) If RngEnd.Row < RngBeg.Row Then Exit Sub Set Rng = Wks.Range(RngBeg, RngEnd) End If If Application.WorksheetFunction.Sum(Rng) = 0 Then bCheckColR = False MsgBox "Task completed! Please post." Worksheets("AssJnl").Delete Worksheets("SPSJnl").Delete Worksheets("VolJnl").Delete Else bCheckColR = True MsgBox "Journal does not balance. Check column R." End If End Sub