用vba设置下拉框的问题

[seraphgxh]

我想在Sheet1的A2到A10里用vba设置一个下拉框，下拉框里的内容是从Sheet3中的A2和A3中取得的，以下是我的代码，运行会出错（好象是Formula1:=之后的写法有问题），请教给如何修正？

With Range(Cells(2, 1), Cells(10, 1)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator:=xlEqual, Formula1:="=" & "Sheet3!$A$2:$A$3"
End With

[dsd999]

这段代码我试过，没问题啊。 运行后的错误是什么？

[dsd999]

应该没关系。 你运行前当前的sheet是sheet1试试。

[seraphgxh]

引用 1 楼 dsd999 的回复:

这段代码我试过，没问题啊。 运行后的错误是什么？

我这里发生运行时错误， 错误1004 应用程序定义或对象定义错误 这个问题有可能跟office的版本有关吗？我用的是2003。

[seraphgxh]

引用 3 楼 dsd999 的回复:

应该没关系。 你运行前当前的sheet是sheet1试试。

我当前的Sheet就是Sheet1。

[dsd999]

什么版本的？我的是2007

[seraphgxh]

引用 5 楼 dsd999 的回复:

什么版本的？我的是2007

试了一下，果然07可以，但03不行。