Because the Forms and ActiveX checkboxes were causing too many headaches (fiddly to format, slow to respond, etc), I made a form for our field technicians to complete that uses macros to change cell values from ACCEPT to REJECT when clicked. See attached file Book2.xlsm
Starting at cell F16 and downwards, if you click the cell it will change the value quite nicely. The problem is that if you quickly double click then select another cell, Excel crashes!
Can anyone please help me figure out why?
This is the code that is doing most of the work:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.EnableEvents = False
'If Target.Cells.Count = 1 Then
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
'<<< Checklist >>>
If Not Intersect(Target, Range("f16:f33")) Is Nothing Then
Select Case Target.Value
Case ""
Target.Value = "ACCEPT"
Case "ACCEPT"
Target.Value = "REJECT"
Case "REJECT"
Target.Value = "N/A"
Case Else
Target.Value = "ACCEPT"
End Select
Range("g16").Select
End If
End If
Application.EnableEvents = True
End Sub
Bookmarks