Filtro do Excel por data não funcionando VBA

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