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

There is a straightforward fix for this but first you need to edit your post to wrap the code in code tags as per forum rules.

Beth.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
'change the range to what you want
If Not Intersect(Target, Range("B25:B54")) 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 Selection = 1 Then
Selection = 0
Else
Selection = 1
End If
End If
End If
End Sub

hope this works

Thanks Beth I have reposted

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 !

BTW, I know a lot of people probably don't like this construct, and it can cause problems sometimes, but I would use the following in setting the values in my code

            'alternates cells between 1 and 0. If you want to change it to something else then replace the 1 and 0 with your alternatives
            Target.Value = IIf(Target.Value = 1, 0, 1)