Hide a many checkboxes when the column is hidden

Change the following lines (in Red)
NB:- the "1" value is now in "Z1"

If cl.Offset(, -3).Value = "1" Then
    cl.Offset(, -2).Resize(, 5).EntireColumn.Hidden = True
Else
    cl.Offset(, -2).Resize(, 5).EntireColumn.Hidden = False
End If