Hide a many checkboxes when the column is hidden

Place you number in cell "AB1" and alter the code in RED as below:-

Set cl = Sheets("Project Cost").Range("$AC$1")
If cl.Offset(, -1).Value = "1" Then
    cl.Resize(, 3).EntireColumn.Hidden = True
Else
    cl.Resize(, 3).EntireColumn.Hidden = False
End If

Hi Mick G,

Thank you. That worked Great. One more question. Is it possible to hide two columns to the left as well? AB and AA.

Thank you
John

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