Problem with Intersect(Target)

Hi,
I need to controll if into a range of cell the max item will be two.
If the user write the vlue and play enter, or right arrows the function ready, if the user play the mouse into another cell or use a left, up, down arrows the controll don't go.
any ideas???

thank
Fabrizio

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D12:T385")) Is Nothing Then
    Exit Sub
    Else
    Dim stDocName1 As Variant
    Dim stDocName2 As Variant
    Dim stDocName3 As String
    stDocName1 = ActiveCell.Row
    stDocName2 = ActiveCell.Column
    stDocName3 = "Sorry" & vbCrLf & "two operator will be in Holiday into some day"
    Select Case stDocName2
        Case 4 To 9
            Range(Cells(stDocName1, 4), Cells(stDocName1, 9)).Select
            If WorksheetFunction.Count(Selection) > 2 Then
            MsgBox stDocName3, vbExclamation, "Holidays Planning"
            Cells(stDocName1, stDocName2).Value = Null
            Cells(stDocName1, stDocName2).Select
            End If
        Case 10 To 14
            Range(Cells(stDocName1, 10), Cells(stDocName1, 14)).Select
            If WorksheetFunction.Count(Selection) > 2 Then
            MsgBox stDocName3, vbExclamation, "Holidays Planning"
            Cells(stDocName1, stDocName2).Value = Null
            Cells(stDocName1, stDocName2).Select
            End If
        Case 15 To 20
            Range(Cells(stDocName1, 15), Cells(stDocName1, 20)).Select
            If WorksheetFunction.Count(Selection) > 2 Then
            MsgBox stDocName3, vbExclamation, "Holidays Planning"
            Cells(stDocName1, stDocName2).Value = Null
            Cells(stDocName1, stDocName2).Select
            End If
    End Select

End If
Application.EnableEvents = True
End Sub

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.