ClearReports/ClearReports.bas

@@ -1,3 +1,4 @@
+Attribute VB_Name = "ClearReports"
 Sub ClearReportsButton()
     Dim ws As Worksheet
     Dim wsArr As Variant
@@ -33,3 +34,4 @@ Function IsInArray(val As String, arr As Variant) As Boolean
     Next i
     IsInArray = False
 End Function
+

DetailedReport/DetailedReport.bas

@@ -1,3 +1,4 @@
+Attribute VB_Name = "DetailedReport"
 Sub GenerateColumnReports()
     Dim ws As Worksheet, wsNew As Worksheet
     Dim lastRow As Long, columnCol As Long, headerRow As Long

FilterAndExtractData/FilterAndExtractData.bas

@@ -1,3 +1,4 @@
+Attribute VB_Name = "FilterAndExtractData"
 Sub FilterAndExtractData()
     Dim wsData As Worksheet, wsDash As Worksheet
     Dim lastRow As Long, headerRow As Long
@@ -18,7 +19,7 @@ Sub FilterAndExtractData()
     countyFilter = Trim(wsDash.Range("D7").Value)  ' County filter
 
     ' Clear previous results
-    wsDash.Range("A10:ZL100000").ClearContents
+    wsDash.Range("A10:L35").ClearContents
 
     ' Set filter range
     Set filterRange = wsData.Range(wsData.Cells(headerRow, 1), wsData.Cells(lastRow, wsData.UsedRange.Columns.Count))

ReportPerCounty/ReportPerCounty.bas

@@ -1,3 +1,4 @@
+Attribute VB_Name = "ReportPerCounty"
 Sub GenerateCountyReports()
     Dim ws As Worksheet, wsNew As Worksheet
     Dim lastRow As Long, countyCol As Long, headerRow As Long

ResetFilters/ResetFilters.bas

@@ -1,3 +1,4 @@
+Attribute VB_Name = "ResetFilters"
 
 Sub ResetFilters()
     Dim wsData As Worksheet, wsDash As Worksheet