Save in folder by year

[confused monkey]

Hello, I am trying to add into my code to look for a folder in the save location by year. So, for example: if the year changes from 2023 to 2024, the VBA code will automatically save into the 2024 folder. I hope my terrible explanation makes some sense...

Please Login or Register  to view this content.

Dim newFolder As String
newFolder = Range("c56").Value
Dim arr1 As Variant
arr1 = Array("certificate (2)", "certificate")
' only create folder if it doesn't already exist
If Len(Dir(path & newFolder, vbDirectory)) = 0 Then MkDir path & newFolder

' update path to include the new folder
path = path & newFolder & Application.PathSeparator

Dim FileName As String
FileName = newFolder & ".xlsm"

ActiveWorkbook.SaveCopyAs path & FileName
ActiveWorkbook.Sheets(arr1).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, Replace$(path & FileName, ".xlsm", ".pdf")

MsgBox " Certificate Saved Successfully"

End Sub[/CODE]

Thanks.

[Bernie Deitrick]

Just start your code by setting the path - and creating the year folder if it does not exist:

Please Login or Register  to view this content.

[confused monkey]

Thanks for the help. I probably didn't explain it too well, but I would like the path to be e.g.

Please Login or Register  to view this content.

with 2023 being the upper folder to c56 folder name.