Streching cells using worksheet_change

Hi all, I have a problem using Worksheet_Change. The code is the following:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
MsgBox (Target.Value)
    Select Case Target
        Case 1
               '{action 1}
        Case 2
               '{action 3}
    End Select
End If
End Sub

The problem arises when I put a value in one of the target cells (a1:a5) and I try to extend the same value with the common "streching" trick with the mouse. It gives me code error no. 13: type mismatch. Can someone explain it?
Thank you very much

Add this at the top and it will avoid the error

If Target.Count > 1 Then Exit Sub

..but can I also run the code for each cell modified with stretching?

Yes cool trick! thanks!

Yes, perhaps better to loop through like so

Private Sub Worksheet_Change(ByVal Target As Range)

Dim r As Range

If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
    For Each r In Target
        MsgBox r.Value
        Select Case Target
            Case 1
               '{action 1}
            Case 2
               '{action 3}
        End Select
    Next r
End If

End Sub

That's perfect. Thanks again!