Selection innerhalb Bereich?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A1:A10")
If Not Intersect(Target, Bereich) Is Nothing Then MsgBox ("OK")
End Sub

Ich würde den Code gern so erweitern, dass nur dann die OK-Meldung kommt, wenn der markierte Bereich KOMPLETT in A1:A10 ist.
Hat jemand ´ne Idee? Vielen Dank schonmal.
Viele Grüße
Mathias