If CheckBox7 = True Then
Sheets("planning").Range("W1", Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "7/31/2013")
Else
Sheets("planning").Range("W1", Cells(Rows.Count, "W").End(xlUp)).AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria1:=Array(1, "7/31/2013")
End If