Try with these other tweaks (example for POWERTRAIN):
Sub TogglePowertrain()
With Worksheets("Codes")
If .Rows("175").Hidden = True And .Rows("190").Hidden = True Then
.Rows("174").Hidden = Not .Rows("174").Hidden
.Rows("189").Hidden = Not .Rows("189").Hidden
End If
If .Rows("175").Hidden = False Then
.Rows("175:188").Hidden = True
End If
If .Rows("190").Hidden = False Then
.Rows("190:199").Hidden = True
End If
End With
End Sub
and these others respectively modified as follows:
Sub TogglePowertrain_EngineCooling()
With Worksheets("Codes")
.Rows("175:188").Hidden = Not .Rows("175:188").Hidden
End With
End Sub
Sub TogglePowertrain_Manual()
With Worksheets("Codes")
.Rows("190:199").Hidden = Not .Rows("190:199").Hidden
End With
End Sub
Bookmarks