Am I doing something wrong here?

[TyeJae]

Here is my formula:
---------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim a As Boolean
Dim b As Boolean
Dim c As Boolean
b = Range("Goal1").Value
c = Range("Goal2").Value
a = False
For x = 6 To 53
If c = 0 Then a = False
If Cells(x, 3).Value = 1 And a = False Then
Range(Cells(x, 13), Cells(x, 13)).Value = "1"
Range(Cells(x, 14), Cells(x, 32)).Value = "-"
a = True
b = b - 1
ElseIf Cells(x, 3).Value = 1 And a = True Then
Range(Cells(x, 13), Cells(x, 22)).Value = "-"
Range(Cells(x, 23), Cells(x, 23)).Value = "1"
Range(Cells(x, 24), Cells(x, 32)).Value = "-"
a = False
c = c - 1
End If
Next x

For x = 6 To 53
If Cells(x, 3).Value = 0 Then
Range(Cells(x, 13), Cells(x, 32)).Value = "-"
End If
Next x

End Sub

---------------------------------------------------------------------

I want it to subtract from Goal1 or Goal2 everytime it runs that par
of the program but not subtract from those cells. Can anyone help m
with this?

Thanks,
TyeJa

 

[Charles]

Tye,

This looks like your previous post on 6/15. Are you still try to se
the team goals ?

Charle

 

[TyeJae]

Because everything is equal right now what I set up on 6/15 works great
I am just trying to tweak it for when one team has more to do than th
other team. Sorry about posting again, I just cant figure it out.

-TyeJae