可以增加判断是否在指定区域(Range)，示例代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
If Target.Count <= 10 Then
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
For Each Rng In Selection
With Rng
If .Value = "" Then
.Value = "√"
Else
.Value = ""
End If
End With
Next
End If
End If
End Sub
没有排版代码，你可以参照调试下。