PersonalEntryBulkRunner.bas

'----------------------------------------------------------------------
' 2.  BULK RUNNER  –  processes every sheet named
'     "Personal Entry M-D-YY" (12 months back)
'----------------------------------------------------------------------

Public Sub BulkProcessLastYear()

    Const MONTHS_BACK As Long = 18           'I modified this to run for 17 months to capture all data from 2024
    Const prefix      As String = "Personal Entry "
    Const DELIM       As String = "-"
    
    Dim targetDate As Date: targetDate = DateAdd("m", -MONTHS_BACK, Date)
    Dim ws As Worksheet, processed As Long, skipped As String
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    For Each ws In ThisWorkbook.Worksheets
        If Left(ws.name, Len(prefix)) = prefix Then
            Dim datePart As String: datePart = Mid(ws.name, Len(prefix) + 1)
            Dim parts() As String: parts = Split(datePart, DELIM)
            
            If UBound(parts) = 2 Then
                Dim m As Long, d As Long, yy As Long, sheetDate As Date
                m = Val(parts(0)): d = Val(parts(1)): yy = Val(parts(2))
                If yy < 100 Then yy = yy + 2000
                On Error Resume Next: sheetDate = DateSerial(yy, m, d): On Error GoTo 0
                
                If sheetDate >= targetDate Then
                    ProcessActivitySheet ws, Format(sheetDate, "yyyy-mm-dd")
                    processed = processed + 1
                Else
                    skipped = skipped & ws.name & "  (too old)" & vbCrLf
                End If
            Else
                skipped = skipped & ws.name & "  (bad name)" & vbCrLf
            End If
        End If
    Next ws
    
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
    MsgBox processed & " sheet(s) processed." & _
           IIf(skipped <> "", vbCrLf & "Skipped:" & vbCrLf & skipped, ""), _
           vbInformation, "Personal-Entry import complete"
End Sub
'=====================================================================