Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
Dim MySum As Long
MySum = Range("B1").Value
Range("B1") = MySum + Range("A1").Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("G:G"), Target) Is Nothing Then Exit Sub
Dim MySum As Long
MySum = Range("H27").Value
Range("H27") = MySum + Range("G15").Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G15")) Is Nothing Then
Range("H27").Value = Range("H27").Value + Target.Value
End If
End Sub
it worked thank u, when I click on the cell it adds it again even after I have typed it in: say I had the daily on 5 and it added 5 to the running which is fine but the next guy anly has 4 and clicks on the daily, it added a total of 9, is there any way to prevent this..