Text Change - True False

[Rubber Beaked Woodpecker]

The following code works fine as it is. A change in A1 text will log the balance.

However I would like the code to run on a change of a True False formula in cell X1. The formula is the following; =(COUNTIF($H$5:$H$100,">0")=1)

I'm struggling with this any ideas please
TIA

Option Explicit

Dim currentMarket As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
        If [A1] <> currentMarket Then
            currentMarket = [A1]
            logBalance
        End If
    End If
End Sub

 

[Rubber Beaked Woodpecker]

So basically I would like Private Sub logBalance() to run there is only one cell greater than zero in the range H5:H100

This make sense?