Quote Originally Posted by rollis13 View Post
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
--------------------------------------------------------------------------------------------------------------------------------------------

Thanks a lot! I´ve applied to all respective cells and now the whole file is toggling as desired. Much appreciated.