excel-从单元格引用派生的vba日期筛选条件

我正在尝试筛选数据，其中用户需要在工作簿中一张工作表的单元格中输入一个筛选条件（月份）。

如果将数据输入到代码中，它可以正常工作，如下所示：

ActiveSheet.Range("$A$2:$P$2173").AutoFilter Field:=13, Criteria1:=Array( _
    "="), Operator:=xlFilterValues, Criteria2:=Array(1, "10/1/2013")
ActiveSheet.Range("$A$2:$P$2173").AutoFilter Field:=12, Criteria1:="<>"
ActiveSheet.Range("$A$2:$P$2173").AutoFilter Field:=3, Criteria1:="<>"

要筛选的列的日期显示为MM-YYYY但在公式栏中显示为DD-MM-YYYY.我还没能替换日期10/1/2013将变量、单元格引用或命名范围链接到另一个工作表。

所以，要过滤的数据在Sheet1月份被输入到Sheet2.

有人能帮忙吗？