Please Change the title of the post to : vba code to protect a Certain Range
hi ,in the same page
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("a9:T1048576 "), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub