Public Sub addFilter(control As IRibbonControl, pressed As Boolean)
Dim splitCritValue() As String
splitCritValue = Split(control.Tag, "_")
If pressed Then
addCriteria splitCritValue(0), splitCritValue(1)
Else
removeCriteria splitCritValue(0), splitCritValue(1)
End If
End Sub