Save Workbook to Folder

Intermediate

Saves the active workbook into a specific folder with today’s date appended to the file name.

VBA Code

Sub SaveWorkbookToFolder()
  Dim folderPath As String
  folderPath = "C:\\Reports\\"
  Dim fileName As String
  fileName = "Financial_Report_" & Format(Date, "yyyymmdd") & ".xlsm"
  ThisWorkbook.SaveCopyAs folderPath & fileName
  MsgBox "Workbook saved to: " & folderPath & fileName
End Sub

RELATED MACROS IN AUTOMATION & VBA

Beginner Macros

Copy and Paste Range

Copies a range of cells and pastes it to a target location on the same sheet.

Sub CopyAndPaste()
  Range("A1:B10").Copy
  Range("D1").PasteSpecial Paste:=xlPasteValues
  Applicat...

Loop Through Worksheets

Loops through every worksheet in the workbook and displays the sheet name.

Sub LoopThroughSheets()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    MsgBox "S...