'Apply filter criteria on columns to be filterd
Dim j As Integer
For j = LBound(ArrColNames) To UBound(ArrColNames)
If InStr(ArrCritsRaw(j), ";") <> 0 Then
' Multiple criteria present, so only select possible
Dim ArrSplit() As String
ArrSplit = Split(ArrCritsRaw(j), ";")
Selection.AutoFilter Field:=ArrColNames(j), Criteria1:=ArrSplit,
Operator:=xlFilterValues
Else
' Single criterium present, so select, deselect, empty, notempty,
' greater/smaller than possible
Selection.AutoFilter Field:=ArrColNames(j), Criteria1:=ArrCritsRaw(j),
Operator:=xlFilterValues
End If
Next j