restrict data entry to specific areas in the sheet

[robertvdb]

I have this sheet where I want to restrict data entry to the three blocks A B C.

The code below works fine for block A. But I want to expand this code to blocks B and C, in the same Sub.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
 
i = Target.Row

If i >= 1 And i <= 10 Then
    If Target.Column >= 1 And Target.Column <= 4 Then
        Exit Sub
    Else
        Application.EnableEvents = False
        Cells(i, 1).Select  'col A
        Application.EnableEvents = True
        Exit Sub
    End If
   
   
    'here I want similar code for blocks B and C
   
End If

End Sub

 

[mumps]

Try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    Application.EnableEvents = False
    If Target.Row <= 10 Then
        Select Case Target.Column
            Case Is = 5, 6
                Range("A" & Target.Row).Select
            Case Is = 11, 12
                Range("G" & Target.Row).Select
            Case Is > 16
                Range("M" & Target.Row).Select
        End Select
    End If
    Application.EnableEvents = True
End Sub

 

[robertvdb]

Thanks Mumps, this does the job !

 

[mumps]

You are very welcome.