得到编译错误:试图使用Today()函数时,vba中没有定义Sub或Function

我得到编译错误:试图在下面的行使用Today()函数时未在vba中定义的Sub或Function:

Worksheets("Dashboard").Range("S" & row).Formula = WorksheetFunction.Days(Worksheets("Dashboard").Range("Q" & row), TODAY()) 

如果您正在比较date,则使用Date代替TODAY()