Hi there,

See if the following code does what you need:



Sub UNCheck_Hide_Columns()

    Application.ScreenUpdating = False

        On Error Resume Next
            ThisWorkbook.Worksheets("Member Data").CheckBoxes.Value = False
        On Error GoTo 0

    Application.ScreenUpdating = True

End Sub

Hope this helps - please let me know how you get on.

Regards,

Greg M