Don't allow multiple selections

[Chewyhairball]

Hi Guys

I have this bit of code that doesn't allow you to select anymore than 1 cell at a time.

I am trying to adapt it so it only works in the range C13:T13 and doesn't allow more than 3 cells selected within this range.

any help is appreciated.

thanks

Rory

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

 

[Marc L]

Hi, for starters :​

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim Rg As Range
        Set Rg = Intersect([C13:T13], Target)
     If Not Rg Is Nothing Then
         If Rg.Count > 3 Then Beep: ActiveCell.Select
        Set Rg = Nothing
     End If
End Sub

 

[Chewyhairball]

Cool! I like the beep. Thanks very much Marc

 

[Fluff]

Another option

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim Rng As Range
   
   Set Rng = Intersect(Target, Range("C13:T13"))
   If Rng Is Nothing Then Exit Sub
   If Rng.Count > 3 Or Rng.Count <> Target.Count Then
      MsgBox "Sorry, multiple selections are not allowed.", vbCritical
      ActiveCell.Select
   End If
End Sub

This will prevent selecting a range like C12:D14