Limit Selection to a single cell

this works except that when you activate the worksheet you always get the message regardless of how many cells are selected?
Why is this & is there a way to eliminate it?

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Count <> 1 Then
    MsgBox "select one cell only"
    ActiveCell.Select
End If

End Sub