I have this code for a button to hide and Unhide rows (7 to 10) But it
hides everything in my sheet. I just want it to hide just the 4 rows.

Private Sub CommandButton8_Click()
If CommandButton8.Caption = "Hide" Then
Range("7:7,8:8,9:9,10:10").Select
Selection.EntireRow.Hidden = True
CommandButton8.Caption = "UnHide"
Else
Range("7:7,8:8,9:9,10:10").Select
Selection.EntireRow.Hidden = False
CommandButton8.Caption = "Hide"
End If
End Sub

Thanks in advance,

Cheers John