Visual Basic - Problema con botón en excel

Buenas!!! Estoy muy pegado en el visual basic y os escribo para ver si me podeis ayudar!!

Quiero poner en una hoja de excel un botón que realice dos operaciones,plegar y desplegar las filas donde tengo determinada información.He puesto el siguiente código pero no me da fallos de compilación, sin embargo no hace lo que yo quiero,solo hace una operación.A ver si podeis encontrar el fallo en el codigo o ayudarme. Gracias!!!



Private Sub CommandButton1_Click()
If CommandButton1 = True Then
Rows("10:10").EntireRow.AutoFit
Rows("9:9").EntireRow.AutoFit
Rows("8:8").EntireRow.AutoFit
Rows("7:7").EntireRow.AutoFit
Rows("6:6").EntireRow.AutoFit
Rows("5:5").EntireRow.AutoFit
Rows("4:4").EntireRow.AutoFit
Rows("3:3").EntireRow.AutoFit
Rows("2:2").EntireRow.AutoFit
Rows("1:1").EntireRow.AutoFit
Else:CommandButton1=False
Rows("2:10").RowHeight = 0
Rows("1:1").RowHeight = 0
End If
End Sub