SOLVER Syntax Help

Maybe like this:

    Dim cell        As Range
    Dim r           As Range

    For Each cell In Range("A1:D5")
        If VarType(cell.Value = vbDouble) Then
            If cell.Value > 0 Then
                If r Is Nothing Then Set r = cell
                Set r = Union(r, cell)
            End If
        End If
    Next cell

    SolverReset
    SolverOk SetCell:="$T$24", _
             MaxMinVal:=2, ValueOf:=0, _
             ByChange:=r.Address
    ' ~