Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, [A1:K20]) Is Nothing Then
[A1].Select
ElseIf Target.Count <> Intersect(Target, [A1:K20]).Count Then [A1].Select
End If
Application.EnableEvents = True
End Sub