Meervoudige selectie cellen

[samabert]

Hallo forumleden,

Op een werkblad voor planning heb ik volgende code die meervoudige selectie van cellen niet toelaat, dit werkt.
Kan deze code aangepast worden, zodanig dat meervoudige selectie met uitzondering van Range A1 : AF23 wel toegepast kan worden ?
M.a.w. binnen Range M25 :AF36 zou meervoudige selectie wel gebruikt mogen worden.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     '>> Prevent user from multiple selection before any changes:
     If BlkMyEvents = True Then Exit Sub
     
    If Selection.Cells.Count > 1 Then
        MsgBox "Sorry, multiple selections are not allowed.", vbCritical
        ActiveCell.Select
        Exit Sub
    End If
    
End Sub

 

[edmoor]

Zoiets?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [COLOR="#008000"]'>> Prevent user from multiple selection before any changes:[/COLOR]
    If BlkMyEvents = True Then Exit Sub
     
    If Not Intersect(Target, Range("A1:AF23")) Is Nothing Then
        If Selection.Cells.Count > 1 Then
            MsgBox "Sorry, multiple selections are not allowed.", vbCritical
            ActiveCell.Select
            Exit Sub
        End If
    End If
End Sub

Of haal die Not weg als je het net andersom bedoelt.

 

[samabert]

Top, dit is het helemaal :thumb:
Bedankt.