Sub Innings()

If Range("H43") = 20# Then

MsgBox "Innings Completed"

End If

End Sub

Private Sub Worksheet_Calculate()
    Call Innings
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H43")) Is Nothing Then
        Call Innings
    End If
End Sub