VB code help please

[Get_Involved]

How do I restructure this part of the code, to put todays year, month, and date, before this part of the code?

Private Sub Workbook_Open()
 Dim Ans As String
 Ans = MsgBox("Update Invoice Number (???)", vbYesNo + vbInformation)
 If Ans = vbYes Then

Example: 2018121773 , year/month/date,2018/12/17+ 27 the updated number on the end.
This will create a Authorization number.

With Sheets("Expense Report").Range("H4")
 .Value = .Value + 1

In the complete code I have to manually input the numbers the first time and it increases the end of it.

Private Sub Workbook_Open()
 Dim Ans As String
 Ans = MsgBox("Update Invoice Number (???)", vbYesNo + vbInformation)
 If Ans = vbYes Then
  With Sheets("Expense Report").Range("H4")
 .Value = .Value + 1

Thanks for any help.

 

[Michael M]

The helper cell is to keep track of the trailling number, in this case 47
That way when the workbook opens it will know what the last number used was !

 

[Get_Involved]

Michael M:
I like your code better, can it be arranged like I put the before and the after in for you?

 

[Michael M]

Sorry I don't understand your last question ?? @Logit and I have provided basically the same code, except for the addition of the helper cell, which I have explained the need for !

 

[Get_Involved]

Ok I will try the helper cell thanks

 

[Get_Involved]

Michael M, Logit:
Thank you for your help works great.

 

[Logit]

You are welcome.