Excel上的错误424

我正在与Excel的工作，我试图运行这个命令，我得到了424 Error... 代码很简单，但我找不到解决scheme。

 Private Sub Run_Click() Dim Weekly As Worksheet Set Weekly = ThisWorkbook.Sheets("Weekly") Todaydate = Range("D4").Value foo = WorksheetFuncton.Match(Todaydate, Weekly.Range("A1489:A1499"), 0) End Sub 

编辑 ：

我现在得到Runtime error 1004

 Private Sub Run_Click() Dim Weekly As Worksheet Set Weekly = ThisWorkbook.Sheets("Weekly") Todaydate = Range("D4").Value foo = WorksheetFunction.Match(Todaydate, Weekly.Range("A1489:A1499"), 0) End Sub 

编辑 ：

修复！

我正在做一个“.Value”

foo = WorksheetFunction.Match（Todaydate，Weekly.Range（“A1489：A1499”）。Value，0）

Answer 1

检查你的拼写：

WorkSheetFunct 我