File Management & Batch Processing

Sub BatchProcessFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet

    folderPath = "C:\Data\" ' Change this path
    fileName = Dir(folderPath & "*.xlsx")

    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)
        Set ws = wb.Sheets(1)

        ' Process each file (example: add timestamp)
        ws.Range("A1").Value = "Processed: " & Now()

        wb.Save
        wb.Close False

        fileName = Dir()
    Loop

    MsgBox "Batch processing complete!"
End Sub