Excel Filter по дате не работает VBA

Selection.TextToColumns FieldInfo:=Array(0, 4)
Thoughtless Tapir