From 032f7df1ff0f3944a4c61ef58cc103342824f10b Mon Sep 17 00:00:00 2001
From: Zane Meyers <zanemeyers@gmail.com>
Date: Fri, 11 Jul 2025 14:26:52 -0400
Subject: [PATCH] Vault Backup 2025-07-11

---
 new-additions/abbreviations.md | 15 ++++++++
 new-additions/excel-macros.md  | 70 ++++++++++++++++++++++++++++++++++
 2 files changed, 85 insertions(+)
 create mode 100644 new-additions/abbreviations.md
 create mode 100644 new-additions/excel-macros.md

diff --git a/new-additions/abbreviations.md b/new-additions/abbreviations.md
new file mode 100644
index 0000000..9c9bd04
--- /dev/null
+++ b/new-additions/abbreviations.md
@@ -0,0 +1,15 @@
+---
+id: abbreviations
+aliases: []
+tags: []
+---
+
+# Abbreviations
+
+## Americans with Disabilities Act (ADA)
+
+* hearing impaired (HI or H.I.)
+* mobility features (MF or M.F.)
+* accessible (Acc.)
+  * usually refers to mobility features.
+
diff --git a/new-additions/excel-macros.md b/new-additions/excel-macros.md
new file mode 100644
index 0000000..b408135
--- /dev/null
+++ b/new-additions/excel-macros.md
@@ -0,0 +1,70 @@
+---
+id: excel-macros
+aliases: []
+tags: []
+---
+
+# Excel Macros
+
+Excel macros are a poor solution for most problems,
+however some simple formatting motions are a good fit.
+
+This document is a step-by-step process for implementing such a macro,
+assuming a fresh Excel install.
+
+## 1. Enable Developer Tools
+
+```menu
+File > Options > Customize Ribbon
+```
+
+On the right side, under `Main Tabs`, check `Developer`.
+
+## 2. Create `PERSONAL.XLSB`
+
+```menu
+Developer > Code > Record Macro
+```
+
+Set `Store macro in:` to `Personal Macro Workbook`
+and click `OK`, then `Stop Recording`.
+
+## 3. 
+
+```menu
+Developer > Visual Basic
+```
+
+In the pop-up window, navigate to and double-click
+"VBAProject (PERSONAL.XLSB)/Modules/Module1"
+
+Erase the empty macro created in step 2
+and add desired macros here.
+My favorite is provided below.
+
+```vb
+Sub FillDownEmptyCells()
+    Dim rng As Range
+    Dim cell As Range
+
+    ' Check if a range is selected
+    If Selection Is Nothing Then
+        Exit Sub
+    End If
+
+    ' Set the selected range
+    Set rng = Selection
+
+    For Each cell In rng
+        If IsEmpty(cell.Value) Then
+            ' Copy cell above to empty cell
+            cell.Value = cell.Offset(-1, 0).Value
+        End If
+    Next cell
+
+End Sub
+```
+
+Use `Ctrl+S` or the save icon to save the edits
+then close the Visual Basic window.
+