diff --git a/PriceLists.bas b/PriceLists.bas index 3ce6ff5..aeefbb8 100644 --- a/PriceLists.bas +++ b/PriceLists.bas @@ -559,7 +559,7 @@ Sub build_price_level(plev As String) MsgBox (pln(0, 0)) Exit Sub End If - If UBound(pln, 2) > 21 Then + If UBound(pln, 2) > 22 Then segment_regex = "^F|^G|^P" Set nnws = nwb.Sheets.Add(, nws) nnws.Name = "Price List - Nursery" @@ -1007,7 +1007,7 @@ Sub compatible(ByRef ws As Worksheet, row As Long, start_col As Long, end_col As Set Sel = rrange(ws, row, row, start_col, end_col) - Sel.InsertIndent 2 + Sel.InsertIndent 1 End Sub