Hi
replace
entirecolumn
with
entirerow

--
Regards
Frank Kabel
Frankfurt, Germany

"Steved" schrieb im Newsbeitrag
...
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.