Merge pull request '3.0' (#8) from agtic/MS_Excel_VBA_Reporting_Template:3.0 into mastre

Reviewed-on: Nestict_Infotech/MS_Excel_VBA_Reporting_Template#8

ClearReports/ClearReports.bas

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

DetailedReport/DetailedReport.bas

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

ReportPerCounty/ReportPerCounty.bas

@@ -1,4 +1,3 @@
-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,4 +1,3 @@
-Attribute VB_Name = "ResetFilters"
 
 Sub ResetFilters()
     Dim wsData As Worksheet, wsDash As Worksheet