pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

only close the workbook if there are no more tabs left

Browse Source
This commit is contained in:
Paul Trowbridge 2023-05-22 15:36:18 -04:00
parent 0f7b5db8b8
commit da1df9337c
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
PriceLists.bas
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
Exit Sub If nwb.Sheets.Count = 1 Then
Call nwb.Close(False)
Exit Sub
Else
nws.Delete
End If
End If End If
Application.ScreenUpdating = True Application.ScreenUpdating = True