increment cells by 10 on a daily basis. regardless of what number is entered into the cell

Workbook1.xlsx

how do increment the hours by 10 hours on a daily basis.
Also would it be possible to have a caption box in which i can change the increment value. so if i wanted the increment to be 11 i would change the value in the caption box to 11.
I know i need a macro to do this but i just can't figure it out.

Thanks in advance.

Can I clarify that on each new day, Cells D3:D22 increase by 10 (increment value)?

yes thats correct

Here is what I have come up with...

Workbook1 (1).xlsm

I have had to put a cell in which will keep track of when it was last updated as I am unsure if there is a way to store that in the code to be honest!

Hope it will do the job!

ARowbot

thats works excellent. just exactly what i was looking. silly question alert...... what does the r stand for and if i wanted to duplicate this 2 more times on the same sheet how would it affect me? so that all the hours cells updated by the same.
as shown in the sheet.
thanks a lot in advance.
Gary

r is just a variable that it uses (in this case runs through the rows)

For r = 3 to 22

means that it will use r = 3 first, run the script until

next r

then it will come back and use r = 4 etc..

To duplicate it for the next columns you could use

Private Sub Workbook_Open()

Dim IncrementValue As Variant

IncrementValue = InputBox("Increment hours by:", "Increment Value", 10)

For r = 3 To 22
If Date > Cells(1, 2).Value Then
Cells(r, 4).Value = Cells(r, 4).Value + IncrementValue
Cells(r, 6).Value = Cells(r, 6).Value + IncrementValue
Cells(r, 8).Value = Cells(r, 8).Value + IncrementValue
End If
Next r

Cells(1, 2).Value = Date



End Sub