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

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