Just a hint, it might work. Try splitting row ranges and skip subcategory rows; here's the example for the main category POWERTRAIN:![]()
Sub TogglePowertrain() With Worksheets("Codes") .Rows("175:188").Hidden = Not .Rows("175:188").Hidden .Rows("190:216").Hidden = Not .Rows("190:216").Hidden End With End Sub
Bookmarks