Implement initial fix to #25

Appears to correctly address the problem leading to RTE 91 when the header option was enabled and an entire row/column was selected that did not intersect .UsedRange Closes #25.
bskinn · Feb 7, 2020 · b8aa429 · b8aa429
1 parent f9a6328
commit b8aa429
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/UFExporter.frm b/src/UFExporter.frm
@@ -442,8 +442,12 @@ Private Function getHeaderRangeAddress() As String
     '
     ' Or, if header export is deselected, report accordingly
 
+    Dim headerRange As Range
+
+    Set headerRange = getHeaderRange
+
     If ChBxHeaderRows.Value Then
-        If checkHeaderRowValues Then
+        If Not headerRange Is Nothing And checkHeaderRowValues Then
             getHeaderRangeAddress = getHeaderRange.Address( _
                         RowAbsolute:=False, ColumnAbsolute:=False _
             )

diff --git a/src/UFExporter.frx b/src/UFExporter.frx