only close the workbook if there are no more tabs left

PriceLists.bas

@@ -593,9 +593,14 @@ Sub build_price_level(plev As String)
         nws.Name = "Price list"
         Call paste_pretty(pl, nws, effdate, curr)
     Else
-        '---if the price list has no length, then close
-        nwb.Close
+        '---if the price list has no length, then close the worksheet.
+        '---if it's the last worksheet, then close the whole workbook
+        If nwb.Sheets.Count = 1 Then
+            Call nwb.Close(False)
             Exit Sub
+        Else
+            nws.Delete
+        End If
     End If
     
     Application.ScreenUpdating = True