VBA Saving Filename with YYYY + 1

[Jambi46n2]

The Code Below Saves the File as "2019 Rate Volume - 2018-08-21.xlsx"

I would like to have it saved like this "2019 Rate Volume - 2019-08-21.xlsx"

How is the best way for me to go about this?

Thank you in advance.

'Date Save Update Definitions
    MonthPath = Format(Month(Date), "00") & " - " & MonthName(Month(Date)) '& " " & YearDate   'ALTER YearDate HERE
    ShareMonthPath = Format(Month(Date), "00") & " - " & MonthName(Month(Date))   'ALTER YearDate HERE
    dte1 = Format(Date, "yyyy-mm-dd")
    dte2 = Format(Date, "yyyy-mm")
    
'Establish Date/Time for Non-Overwrite File Save
    If Hour(Now) > 12 Then
            Tme = Hour(Now) - 12 & " pm"
        Else
            Tme = Hour(Now) & " am"
    End If


'Save As New File on Share Drive
    If Dir("\\SaveLocation\New Calculation\" & YearDate & "\" & MonthPath & "\" & YearDate & " Rate Volume - " & dte1 & ".xlsx") = "" Then  'ALTER YearDate HERE
            RateV.SaveAs Filename:= _
                "\\SaveLocation\New Calculation\" & YearDate & "\" & MonthPath & "\" & YearDate & " Rate Volume - " & dte1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False  'ALTER YearDate HERE
        Else
            RateV.SaveAs Filename:= _
                "\\SaveLocation\New Calculation\" & YearDate & "\" & MonthPath & "\" & YearDate & " Rate Volume - " & dte1 & " - " & Tme & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False   'ALTER YearDate HERE
    End If

 

[mse330]

Try the below code

dte1 =Format(DateAdd("yyyy", 1, Date), "yyyy-mm-dd")

 

[Jambi46n2]

This worked!

Thank you so much.

 

[mse330]

Glad to help & we are welcome