Andy2483

¦^´_ 1# sillykin


Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Columns.Count > 1 Then Exit Sub
   If .Count > 1 Then Exit Sub
   If Intersect([A2:A200], .Cells) Is Nothing Then Exit Sub
   If UCase(.Item(1, 6)) = "TRUE" Then
      .Item(1, 8) = .Item(1, 8) + 1
      ElseIf UCase(.Item(1, 6)) = "FALSE" Then
      .Item(1, 9) = .Item(1, 9) + 1
   End If
End With
End Sub