[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, j%
If Target.Address = "$B$1" Then
For i = 1 To 3
j = j + 1
If Target.Value = i Then
j = j + 1
End If
Cells(1, 2).Offset(i, 0).Value = j
Next
End If
End Sub[/B][/COLOR]