Hello from Steved

Below will hide and unhide columns

What is required please to hide and unhide rows

Private Sub CheckBox1_Click()
Dim r As Range
Set r = Range
("D1:E1,G1:H1,J1:K1,M1:N1,P1:Q1,S1:T1,V1:W1,Y1:Z1, AB1:AC1")
r.EntireColumn.Hidden = Not r.EntireColumn.Hidden
End Sub

Thankyou.