[scouse13]

is the following possible, if so what code would i use

i have a box on a worksheet for entering a value, and a second box that i want to keep as a running total, when a value is entered in the first box, i would like the second box to update with the first figure, if another value is entered in the first box the second box needs to add that to the first figure and update.

[turbodante]

Is this what you meant?

Needs to go into the sheet's (code)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb As Workbook, ws As Worksheet
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("sheet1")
    
If Not Intersect(Target, Range("G7")) Is Nothing Then
ws.Range("H7").Value = ws.Range("H7").Value + ws.Range("G7").Value
End If
        
End Sub

[turbodante]

Thanks for PM, scouse.

In the above, what I meant by sheet's (code) is...

In VBA, you will normally see your code in a Module. In this instance, we want to put this code in the sheet. Double click on the sheet on lefthand project window, and paste the code above.

The code used cells H7 and G7, where H7 will be updated whenever G7 is changed.

If anyone this is still unclear, please shout.

[Zack Barresse]

turbodante, is the ws reference to the housed worksheet?

[turbodante]

Originally Posted by Zack Barresse

turbodante, is the ws reference to the housed worksheet?

I see what you're hinting at Zack. Both ws and wb are unneccessary.