Need help with " Private Sub Worksheet_SelectionChange(ByVal Target As Range) "

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error GoTo wsc_exit
    
    Application.EnableEvents = False
    
    If Target.Cells.Count = 1 Then
    
        'change the range to what you want
        If Not Intersect(Target, Range("B25:B54, AJ10, AJ13")) Is Nothing Then
        
            'alternates cells between 1 and 0. If you want to change it to something else then replace the 1 and 0 with your alternatives
            If Target.Value = 1 Then
            
                Target.Value = 0
            Else
            
                Target.Value = 1
            End If
        End If
    End If

wsc_exit:
    Application.EnableEvents = True
End Sub

Works perfectly Bob !!! Thank you very much !