代码添加数据有效性问题

With [a1].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="2013-1-1,2013-1-2,2013-1-3,2013-1-4"
……
end with
给A1单元格添加数据有效性，可是添加以后，单元格的下拉列表中显示的却成了
1/1/2013,1/2/2013,1/3/2013,1/4/2013
为什么呢？
我猜测是Formula1被认为是某种日期格式，因为我给Formula1添加上非日期格式后就能正确显示，只要是"yyyy-m-d,yyyy-m-d"的格式执行代码后就会显示为 "m/d/yyyy,m/d/yyyy"的格式
那这种默认的格式在哪里设置的呢？