Sub SmartView_ToggleMissingZeros()
'Toggle between suppress missing/zero and display missing/zero
    opt1 = HypGetSheetOption(Empty, 6)  'test suppress missing
    opt2 = HypGetSheetOption(Empty, 7)  'test suppress zeros
    
    If opt1 <> opt2 Then
        MsgBox ("No change has been made (missing/zero are not set the same, please check your options)")
    Else
        If opt1 And opt2 Then
            x = HypSetSheetOption(Empty, 6, False) 'suppress missing items
            x = HypSetSheetOption(Empty, 7, False) 'suppress zero items
            MsgBox ("Missing/Zero items are now Visible")
        Else
            x = HypSetSheetOption(Empty, 6, True) 'display missing items
            x = HypSetSheetOption(Empty, 7, True) 'display zero items
            MsgBox ("Missing/Zero items are now Suppressed")
        End If
    End If
    
End Sub