IF代码中使用的input框值

我有一个列(W:W),显示一年的生效。 我正在编写简单的VBA代码,以确定哪些客户端行需要“检查”,因为他们的生效date大于或等于我们正在审查的年份。 我不想每年都要编辑VBA代码,所以我插入了一个input框,我想在稍后的IF语句中用来标记需要“检查”的客户端。 我不断收到“应用程序定义或对象定义的错误”。 不知道我在做什么错。

'Ask question for year of testing Worksheets("Plan_Data").Activate Dim TestingYear TestingYear = Application.InputBox(prompt:="Which plan year end are you looking at (year only?)") Range("C2").Select ActiveCell.Formula = "=IF(W2>= & TestingYear &,""CHECK"","""")" 

尝试改变它

 ActiveCell.Formula = "=IF(W2>= " & TestingYear & ",""CHECK"","""")"