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 ...