excel vba 数据有效性问题

Question

用VBA设置工作表的数据有效性
一个工作簿，添一个命令按钮，代码如下：

Private Sub CommandButton1_Click()
With Range("A1:A10").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="1,2,3,4"
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("C1:C10").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="8,7,6,5"
End With
End Sub

但是工作表的SelectionChange事件能正常运行
而按钮的Click事件中就会出错。为什么呢？

50分等高手
再试了一次，在Label的click事件中正常运行，Private Sub Label1_Click()
我可以继续工作了，但仍然继续悬赏，希望大家回答
前面也曾出现过提示automation错误，不知道什么意思
--------------------------------------------
在excel2007下完全正常，在2003下按钮的click事件出错，其他两个正常
“运行时错误'-2147417848(80010108)':
方法'Add'作用于对象'Validation'时失败”

不知一楼的运行环境是什么
---------------------------------------
二楼说的改了也没用，没加private，代码写在sheet1下应该也私有的吧

Answer 1

在你单击CommandButton1控件时，该控件被激活，Validation失效。你可以通过激活工作表上的其他一些元素来避免该问题。
'******************************************
Private Sub CommandButton1_Click()
Range("a1").Activate
With Range("A1:A10").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="1,2,3,4"
End With
CommandButton1.Activate
End Sub
'*****************************************
参考帮助：
《在工作表上使用 ActiveX 控件》

Answer 2

一旦点击了按钮，工作表就失去焦点了，添加有效性会由于工作表没有焦点而无法添加DropDown下拉按钮。只要让工作表重新获得焦点即可。
Private Sub CommandButton1_Click()
Range("A1").Select
With Range("A1:A10").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="1,2,3,4"
End With
End Sub

Answer 3

Private Sub CommandButton1_Click()改成
Sub CommandButton1_Click()

Answer 4

实地试了一下，代码完全没有问题，也达到了你的要求，不知你是如何出错的。