分别隐藏两组行

Question

我有2个按钮的Excel VBA。单击一个时，某些行将被隐藏，当单击另一个行时，将隐藏另一行选择。

当我尝试隐藏行的两个部分时，它会给我一个运行时错误1004

Private Sub CommandButton1_Click()
    With Rows("7:14")
        .Select
        .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
End Sub

Private Sub CommandButton2_Click()
    With Rows("16:24")
       .Select
       .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
End Sub