pop message based on selection cell and move another cell

[tubrak]

hi
I try writing macro when I select any cell for any one of them in this range A1:B10 then should pop message and move selection to column C .
this is what I have so far , but doesn't work at all.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:B10")) Is Nothing Then
        MsgBox "You have select protected cell " & vbCrLf & "sorry you can't select protected cell", vbInformation, "Kutools for Excel"
        Target.Offset(, 1).Select
        End If
End Sub

 

[Fluff]

It needs to be

If Not Intersect(Target, Range("A1:B10")) Is Nothing Then

but why use code instead of preventing users from selecting the locked cells in the first place?

 

[tubrak]

but why use code instead of preventing users from selecting the locked cells in the first place?

I know just I want trying another way
thanks so much

 

[Fluff]

You're welcome & thanks for the feedback.