判断问题 请个位老师帮忙 修改下面的代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> "" Then ActiveSheet.Name = Range("A1")
End Sub



在上面的代码的基础上加一个判断 的代码应该怎么写
判断：如果 工作表标签的名 和 A1 的值 相同时 就退出要执行的程序程序
     否则 执行 [A1] = [U1].Value
最好 只执行一次
写成下面的样子为何不行啊：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if ActiveSheet.Name = Range("A1").Value Then Exit Sub

ElseIf Range("A1") <> "" Then ActiveSheet.Name = Range("A1")
[A1] = [U1].Value
End If

End Sub

[ 本帖最后由 qhllqhll 于 2011-8-7 09:05 编辑 ]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if ActiveSheet.Name = Range("A1").Value Then
       Exit Sub
Else
        ActiveSheet.Name = [U1].Value
End If

非常感谢蓝版主