diff --git a/PriceLists.bas b/PriceLists.bas
index 69874cc..63037fa 100644
--- a/PriceLists.bas
+++ b/PriceLists.bas
@@ -660,8 +660,14 @@ Sub build_customer_files()
     
     If pricelevel.tbPATH.text <> "" Then nwb.SaveAs Filename:=filepath & "\" & fname
     
-    fname = Replace(fname, "xlsx", "pdf")
-    nwb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath & "\" & fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
+    If pricelevel.chPDF Then
+        fname = Replace(fname, "xlsx", "pdf")
+        nwb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath & "\" & fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
+    End If
+    
+    If Not pricelevel.chbLEAVEOPEN Then
+        nwb.Close
+    End If
 
     For Each wb In Workbooks
         If wb.Name = "HC FullCode List.xlsx" Then
@@ -676,6 +682,9 @@ Sub build_customer_files()
     
     If Not (fcwb Is Nothing) Then
         If pricelevel.tbPATH.text <> "" Then fcwb.SaveAs Filename:=filepath & "\HC FullCode List.xlsx"
+        If Not pricelevel.chbLEAVEOPEN Then
+            fcwb.Close
+        End If
     End If
 
     
diff --git a/pricelevel.frm b/pricelevel.frm
index 8001ba5..1ff18c6 100644
--- a/pricelevel.frm
+++ b/pricelevel.frm
@@ -38,6 +38,10 @@ Private Sub cbFolder_Click()
 End Sub
 
 
+Private Sub cbNUMERIC_Click()
+
+End Sub
+
 Private Sub cbOK_Click()
     cancel = False
     Me.Hide
diff --git a/pricelevel.frx b/pricelevel.frx
index c0ba771..e963ada 100644
Binary files a/pricelevel.frx and b/pricelevel.frx differ