Ampliar y reducir esquemas para todo un libro desde una Macro

Hola a todos.. Tengo un libro con 30 hojas y 2 niveles de esquema... El nivel 1 es el resumen es para cuando se envía a todos los responsables y el nivel 2 es cuando se esta trabajando.

quisiera saber que macro podría usar para que con solo correrla me reduzca los esquemas de todas las hojas a NIVEL 1 y que cuando la vuelva a correr me amplíe todas las hojas a nivel 2.

o al menos que solo reduzca y la ampliación la haga uno manual a medida que vaya necesitando.

por si les sirve de algo para apoyarme en la respuesta y como base he encontrado esto que son dos botones que en una hoja y en una celda exacta reduce el esquema:

Botón 1

Private Sub CommandButton1_Click()
ExecuteExcel4Macro "SHOW.DETAIL(1," & ActiveCell.Row & ",false)"
End Sub

Gracias