Update cell by increment of 1 on opening and save as the new number

[SarahG123]

Hello all,

Disclaimer: I am totally new to macros and trying to teach myself here. So hoping that you might be able to advise me.

I an creating a paying-in log. I would like the macro to update the log number and then save the document under this new number.

E.g.
Cell 1 = Paying in log
Cell 2 = 1
-------
Cell 1 will remain constant.
Cell 2 will update by 1 each time on opening, and then will be saved as a new document, using the information from cell 1 and combining it with cell 2. E.g. Paying in log 1

Can anyone help?


The form looks like this:

Example excel.png

Many thanks,

Sarah

[nigelog]

Private Sub WorkBook_Open()

With Sheets("Sheet1")
.Cells(1, 4).Value = .Cells(1, 4).Value + 1
    ThisWorkbook.SaveAs ThisWorkbook.Path & Application.PathSeparator & .Cells(1, 3).Value & " " & .Cells(1, 4).Value & ".xlsm"
 End With
End Sub