I have a POS that is using 10 Shapes (Categories) as buttons. I have a Macro to call the Subcategories. It works for 9 of the buttons, but not 10.
Sub POS_LoadSubCategory()
With pos
'Remove any existing product shapes
For Each ProdShp In pos.Shapes
If InStr(ProdShp.Name...