ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="=NULL", Operator:=xlAnd 'EQUALS "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="<>NULL", Operator:=xlAnd 'DOES NOT EQUAL "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="=NULL*", Operator:=xlAnd 'BEGINS WITH "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="<>NULL*", Operator:=xlAnd 'DOES NOT BEGIN WITH "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="=*NULL", Operator:=xlAnd 'ENDS WITH "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="<>*NULL", Operator:=xlAnd 'DOES NOT END WITH "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="=*NULL*", Operator:=xlAnd 'CONTAINS "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="<>*NULL*", Operator:=xlAnd 'DOES NOT CONTAIN "NULL"
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="=" 'Blanks
'ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:="<>" 'NonBlanks