Some ,,protection'' Of The Title (rows) **

I used this code for some ,,protection'' of the title (rows):


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim myRange As Range

Set myRange = Range("A1:F4")
Set isect = Application.Intersect(myRange, Target)
If Not isect Is Nothing Then
MsgBox "DON'T change this cell."
On Error Resume Next
If Target.Count = 1 Then Target.Cells.Offset(0, 0).Select
If Err Or Target.Count > 1 Then Cells(0, 0).Select
On Error GoTo 0
End If
End Sub

Is there a better way for doing something like this? (the code above)
It worked, but not that kinda perfect and I added some other features (in VBA) and now the code gives me this error: Compile error: a variable isn't defined.