date_stamp_worksheets.vbs

Private Sub DateStampCell(stamp_rng As Range, worksheet_list As Collection)
    On Error GoTo catch_error:
    
    For Each sht In worksheet_list
        stamp_rng.Value = "Last Updated: " & Now & " Data since: " & [LastRunDate]
    Next sht
    
    Exit Sub
    
catch_error:
    If testing_mode = True Then GoTo debug_error
    Libraries.LogErrorMessageToXls "Date stamping a cell has failed in " & ThisWorkbook.Name, "Macro error: " & Err.Description & " in DateStampCell subroutine", "https://hp.sharepoint.com/teams/WS OEM PRGM/OCMS Reports/AutomationErrorLogs.xlsx", "ErrorLog", "tbl_ErrorLog"
debug_error:
    Application.DisplayAlerts = True
End Sub