请问我excel vba中的一段CommandButton1.Enabled = False导致单元格不能粘贴

程序全文是：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 4 Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub
导致了单击一个单元格复制后到另外一个单元格就粘贴不了,必须双击单元格后选择到了里面的内容进行复制后才能粘贴，将End SubCommandButton1.Enabled = False屏蔽后，就能CTRL V粘贴。请问是什么原因啊，怎样才能解决喃，谢谢！

刚发现将End SubCommandButton1.Enabled = False改为CommandButton1.Enabled = True也不行，是不是这个语句出现了两次的原因啊，但把第二句删了的话，怎么实现CommandButton1不能使用的目的啊？

主要是你的 If ActiveCell.Column = 4 Then 这里的问题。你这里是判断法动单元格的列是不是4，如果不是，就执行else后面的一句，这才是问题的关键

private sub commandbutton1_click() call sheet2.main end sub