Selection.formula问题 - VBA Excel

Question

我试图创建一个子库来更新 - 更正大量下拉控件（Excel）的单元格分配 - 以避免必须手动执行此操作。

代码（在创建循环之前 - 只是试图让一行工作......）：

Dim StartIT, RowIT As Integer
RowIT = InputBox("Indicate the FIRST Row # to COPY... ")
StartIT = InputBox("Indicate the Current-HIGHEST Array Element # ")
ActiveSheet.Shapes.Range(Array("Drop Down " & StartIT)).Select
Selection.Formula = "=$J$" & CStr(RowIT)

在Selection.Formula行上获取错误; ＆＃34;对象不支持此属性或方法＆＃34;。 我对VB有点新，但这似乎非常基础，我研究过它。无法弄清楚如何使这项工作 - 尝试了很多变化。非常感谢所有的投入和指导。