only close the workbook if there are no more tabs left

This commit is contained in:
Paul Trowbridge 2023-05-22 15:36:18 -04:00
parent 0f7b5db8b8
commit da1df9337c

View File

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