NormChart55
New Member
- Joined
- Feb 22, 2022
- Messages
- 48
- Office Version
- 2016
- Platform
- Windows
Hello - I have this code saving my file, but I need to tweak it so that the date is for the Saturday of the current week and cannot find a solution. Hopefully there is a simple one. Any thoughts?
VBA Code:
Dim Path As String
Dim Filename As String
Dim dt As String
user = Environ("Username")
Desktop = "C:\Users\" & user & "\Desktop\"
dt = Format(CStr(Now), "yyyy_mm_dd")
Path = "C:\Users\username\Desktop\"
Filename = "Template"
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=Desktop & Filename & " " & dt & ".xlsm", FileFormat:=52