Dim var1 As String

var1 = "17.05"

'можно присвоить переменной значение ячейки, в которой задаете условие для фильтра
'(!) _В_ДАННОМ_СЛУЧАЕ_ формат ячейки с условием должен быть "текст"
'var1 = "Имя листа".адрес_ячейки_с_условием.Value2

Selection.AutoFilter Field:= 2 , _
                 Criteria1:=">= " &  var1 & ".2010 16:00", _
                 Operator:=xlAnd, _
                 Criteria2:="<=16.05.2010 23:59"

'P.S.: с таким условием (>= 17 . 05 . 2010  AND <= 16 . 05 . 2010 ) фильтр Вам ни одной записи не вернет