Data source types: Essbase
HypIsExpense(vtSheetName, vtDimensionName, vtMemberName)
ByVal vtDimensionName As Variant
ByVal vtMemberName As Variant
vtSheetName: For future use. Currently the active sheet is used.
vtDimensionName: The name of the dimension where the member belongs. If vtDimensionName is Null or Empty, the active dimension is used.
Declare Function HypIsExpense Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtDimensionName As Variant, ByVal vtMemberName As Variant) As Variant Sub CheckExpense() vtret = HypIsExpense(Empty, "Measures", "Opening Inventory") If vtret = -1 Then MsgBox ("Opening Inventory has expense flag set") ElseIf vtret = 0 Then MsgBox ("Expense flag has not been set") Else MsgBox ("Error value returned is" & vtret) End If End Sub